Hi Folks, ich habe mal einwenig rumprobiert und zwar wenn ich die Zeile ps.Landscape=False entferne, dann geht das Drucken auch mehr als einmal. Scheint wohl ein Bug zusein, oder?
Gruß Klemens Am 15.11.2010 um 04:31 schrieb Klemens Klarhoelter: > Hi Folks, > > die folgende Druck-Routine funktioniert soweit korrekt aber leider nur einmal. > Beim zweiten Durchlauf erscheint das Printer Setup noch korrekt und nach dem > Drücken > vom Buttom "drucken" bleibt g = nil und somit wird nicht gedruckt. Ich finde > den Fehler > nicht? Habt ihr eine Idee? > > dim ds as new LBDataSetVerify > dim ps as new PrinterSetup > Dim g As Graphics > CLIManager.rptVerify = new ReportVerify > // set for printers max resolution > ps.MaxHorizontalResolution = 300 > ps.MaxVerticalResolution = 300 > ps.Landscape=False > > if ps.PageSetupDialog then > g = OpenPrinterDialog(ps,nil) > if g <> nil then > if CLIManager.rptVerify.run(ds,ps) then > if CLIManager.rptVerify.document<>nil then > CLIManager.rptVerify.Document.Print(g) > end if > end if > end if > end if > > Gruß > Klemens > > > > > > > > > > > > Klemens Klarhoelter-Selbst
