New topic: Printing Mulitple Report Copies
<http://forums.realsoftware.com/viewtopic.php?t=34298> Page 1 of 1 [ 1 post ] Previous topic | Next topic Author Message merft Post subject: Printing Mulitple Report CopiesPosted: Wed Jun 16, 2010 12:45 pm Joined: Wed Mar 19, 2008 6:27 pm Posts: 23 So... Printing multiple copies on Windows is bugged and does not work. So I am trying to figure out a workaround. I'm using the report print command but I think this is the problem. I attempted putting a loop in to resend the graphics object to the rpt.Document.Print. Which does work with the exception of the last page, which never contains any query information just the static report text. Any suggestions? I was think of setting up a second canvas offscreen and printing from that graphics object rather than using the built-in report print command. Code:Dim ps As New PrinterSetup If rpt <> Nil Then rpt.Close rpt = New rptScrambleMotos If dbOpen Then Dim rs As RecordSet = db.SQLSelect(qryQualMotos(qryCat, pmQualRound.Text)) If rs = Nil Then Beep MsgBox "No records found to print" Else ps.MaxHorizontalResolution = -1 ps.MaxVerticalResolution = -1 If gPrintSettings <> "" Then ps.SetupString = gPrintSettings If ps.PageSetupDialog Then Dim g As Graphics = OpenPrinterDialog(ps, nil) If g <> Nil Then //Thinking that I can loop here based on the g.copies but doesn't work, tried from here down in various locations gPrintSettings = ps.SetupString Dim rsq As New Reports.RecordSetQuery(rs) //Tried here also If rpt.Run(rsq, ps) Then //And tried here rpt.Document.Print(g) End If End If End If End If db.Close End If Top Display posts from previous: All posts1 day7 days2 weeks1 month3 months6 months1 year Sort by AuthorPost timeSubject AscendingDescending Page 1 of 1 [ 1 post ] -- Over 1500 classes with 29000 functions in one REALbasic plug-in collection. The Monkeybread Software Realbasic Plugin v9.3. http://www.monkeybreadsoftware.de/realbasic/plugins.shtml [email protected]
