New topic: Printing Way this no works
<http://forums.realsoftware.com/viewtopic.php?t=47901> Page 1 of 1 [ 1 post ] Previous topic | Next topic Author Message jetpr Post subject: Printing Way this no worksPosted: Thu May 16, 2013 8:56 pm Joined: Wed Sep 20, 2006 5:12 pm Posts: 669 Location: Puerto Rico Dim ps As PrinterSetup Settings ="DoNotAlterThis=SetupString.2"_ +EndOfLine+"ActualHorizontalResolution=203"_ +EndOfLine+"ActualVerticalResolution=203"_ +EndOfLine+"MaxHorizontalResolution=300"_ +EndOfLine+"MaxVerticalResolution=300"_ +EndOfLine+"MarginLeft=0"_ +EndOfLine+"MarginRight=14376"_ +EndOfLine+"MarginTop=0"_ +EndOfLine+"MarginBottom=0"_ +EndOfLine+"MinMarginLeft=0"_ +EndOfLine+"MinMarginRight=14376"_ +EndOfLine+"MinMarginTop=0"_ +EndOfLine+"MinMarginBottom=0"_ +EndOfLine+"PageSetupFlags=6"_ +EndOfLine+"DevModeStructureSizePS=1044"_ +EndOfLine+"DevModeStructurePS=Star TSP100 Tear Bar (TSP113)" ps=New PrinterSetup ps.SetupString = Settings ps.MaxHorizontalResolution = 300 ps.MaxVerticalResolution = 300 g = OpenPrinter(ps) <<<< Crash Way If g <> Nil then if rpt.Run(DataReports,ps) then //if the report ran successfully, print it rpt.Document.Print(g) end if end if _________________ Thanks for any contribution and God blesses all (I start Using RS in 10/12/2010) Mac Mini with Lion v10.7.5 and Real Studio 2012r1 Pro And Windows 7 RS2012r1 Personal and Linux RS2012r1 Personal Register user my Hobbies R/C Turbines Jets Models 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]
