Jag har problem med en applikation jag håller på med.

Jag skriver ut en sak i programmet och använder printer.fontsize för att ställa in textstorleken. Storleken bestäms av användaren och är mellan 10 och 26. Problemet är att sklrivaren inte följer min inställning utan ibland skrivs stor text ut och ibland liten...

Koden ser ut typ så här

printer.fontsize = textstorlek 'där "textstorlek" just nu är 12
printer.print "bla bla bla..."

Någon som råkat ut för samma problem eller vet mer om printer.fontsize

/Henric

Använd dig istället av font objektet än medlemmarna på printer objektet.

Exempel:
<code>
Public Function CloneFont(Value As stdole.IFont) As stdole.StdFont
Value.Clone CloneFont
End Function

Public Sub TestFont()
Dim FontText As stdole.StdFont
Dim FontRubrik As stdole.StdFont
'Förbereder fonter
Set FontText = New stdole.StdFont
FontText.Size = 10
FontText.Name = "Courier New"

Set FontRubrik = CloneFont(FontText)
FontRubrik.Size = 14
FontRubrik.Bold = True

'Skriver ut rubrik
Set Printer.Font = FontRubrik
Printer.Print "Rubrik"

'Skriver ut text
Set Printer.Font = FontText
Printer.Print "Rad1"
Printer.Print "Rad2"
Printer.Print "Rad3"


End Sub
</code>

KAnske hjälper.

Tack för svaret. Jag ska prova om det fungerar bättre nu, problemet är bara att jag inte har nån skrivare... Det får bli imorrn på jobbet :)

/Henric

Du kan ju skriva ut till pdf filer. Ett bra knep om man inte ha skrivare men vill testa utskrifter.

Du använder väl ett True Type typsnitt? De kan skalas i alla storlekar.
mvh Claes

Japp, nu gör jag det. Men frågan är om jag gjorde det förut... Tack för alla svar, speciellt Andreas. En modifiering av din lösning fungerade perfekt!

/Henric

Vad modifierade du? ;o)