New topic: Can someone TEST this for me please?
<http://forums.realsoftware.com/viewtopic.php?t=46010> Page 1 of 1 [ 1 post ] Previous topic | Next topic Author Message DaveS Post subject: Can someone TEST this for me please?Posted: Wed Nov 21, 2012 10:38 am Joined: Sun Aug 05, 2007 10:46 am Posts: 4282 Location: San Diego, CA I have discovered (at least on my computer with the two printers I have) under OSX that this works. By passing in 0, 1 , 2 or 3 this returns a graphic on the printer selected in the OpenPrinterDialog with a resolution that is a close to the values in the Select Statment (but not greater) as possible. For example one of my printers supports 120DPI and the other 180DPI If I call this routine with "1" as the input value it trys to set the resolution to 200DPI and therefore returns either 120 or 180 depending on the printer selected. What I would like is if others could test this with whatever printers they have, in all combos and see if this holds out as true, or is just a coincidence on my machine And if some could do this with WINDOWS as well that would be great. Please post the Printer , the parameter you passed to the function, and the MSGBOX results FUNCTION Get_Printer_Graphic(PrinterRez as Integer) as graphics dim g as graphics dim rez as integer dim temp_printer_setup as printerSetup temp_printer_setup= New PrinterSetup temp_printer_setup.SetupString=mySettings ' printer driver should round it down to a supportable dpi Select Case PrinterRez Case 0 ' Fast (72dpi) x_rez=72 Case 1 ' Economy (120 to 180dpi) ' x_rez=200 Case 2 ' Normal (360dpi) x_rez=400 Case 3 ' Fine (720dpi) x_rez=800 End Select temp_printer_setup.MaxHorizontalResolution=rez temp_printer_setup.maxVerticalResolution=rez g=OpenPrinterDialog(temp_printer_setup) msgbox "P="+str(PrinterRez)+"="+str(temp_printer_setup.HorizontalResolution)+"x"str(temp_printer_setup.VerticalResolution) return g END FUNCTION _________________ Dave Sisemore MacPro, OSX Lion 10.7.4 RB2012r1 Note : I am not interested in any solutions that involve custom Plug-ins of any kind 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]
