Liebe RB-Leute
Ich schaffe es nicht, ein Editfield so zu drucken, wie es auf dem Bildschirm
aussieht. Die Schrift wird im Druck immer grösser, auf Mac mehr als auf
Windows. Was muss ich noch einbauen, damit es auf beiden Systemen dasselbe
Ergebnis gibt? Bin aus der Onlinehilfe nicht schlau geworden...
Gruss in die Runde
Mike
g=OpenPrinterDialog()
if g = nil then
return
end if
psp = new PrinterSetup
psp.MaxHorizontalResolution = 72
psp.MaxVerticalResolution = 72
PageWidth = 510 // 490
PageHeight = 730 // 730
RandOben = 30
RandLinks = 40
#if TargetWin32 Then
RandOben = RandOben + 20
RandLinks = RandLinks + 20
#endif
stp=EF.StyledTextPrinter(g,PageWidth)
Do until stp.eof // hier beginnt der Ausdruck
stp.DrawBlock RandLinks,RandOben,PageHeight
If Not stp.eof then // weiterer Text ist zu drucken
g.nextPage
End if
Loop
