Code: Alles auswählen
If PrintRequester() <> #FALSE
PageWidth.l = PrinterPageWidth()
PageHeight.l = PrinterPageHeight()
CreateImage(0,PageWidth,PageHeight)
If StartDrawing(ImageOutput()) <> #FALSE
Box(0,0,PageWidth,PageHeight,RGB(255,255,255))
Locate(100,100)
DrawingFont(LoadFont(0,"",100))
DrawText("Sudoku: "+FormatDate("%dd.%mm.%yyyy - %hh:%ii:%ss",Date()))
Locate(100,400)
DrawText("Sudoku Printer Test 2 pic")
FrontColor(100,100,100)
DrawingMode(4)
StopDrawing()
CloseFont(0)
CreateImage(1,PageWidth,PageHeight)
;CopyImage(0,1)
ResizeImage(1,PageWidth/10,PageHeight/10)
If OpenWindow(0,0,0,PageWidth/10,PageHeight/10,0,"Sudoku Solver - Page preview") <> #FALSE
If CreateGadgetList(WindowID(0))
ImageGadget(1,0,0,PageWidth/10,PageHeight/10,UseImage(0))
MessageRequester("","",16)
EndIf
EndIf
EndIf
EndIf
If PrintRequester()
If StartPrinting("Sudoku Solver MASH")
If StartDrawing(PrinterOutput())
DrawImage(UseImage(0),0,0)
StopDrawing()
EndIf
StopPrinting()
EndIf
EndIf