Print problem
Verfasst: 05.03.2006 22:37
Ich weis der Code sieht etwas wüst aus aber ich habe versucht verzweifelt hinzubekommen etwas auszudrucken. Erst möchte ich ein Window öffnen und dann das Bild mit seinen Dimensionen um Faktor 10 jeweils verkleinert anzeigen und dann aber das Orginal also nicht um faktor 10 verkleinert ausdrucken. Mein Problem copyimage geht nicht und villeicht denke ich gerade falsch aber es ist ziemlich klein...
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