On May 27, 2006, at 7:31 PM, Aaron Bratcher wrote:
When I run this code, res is always 72 dpi. Is it because it's an
HP? Is it because it's windows server 2003? (RB 555). Trying to
find answers to how to give me something besides 72.
setup = new PrinterSetup
setup.maxhorizontalResolution = -1
res = setup.horizontalResolution
There has been mention on the lists a couple of times about having to
issue the "New PrinterSetup" multiple times in order to get the
higher resolution if you are not using an Open Printer dialog.
Someone on the list published a printersetup testing program a while
back, and the action event for one of the pushbuttons in the program
looks like:
dim ps as PrinterSetup
if Keyboard.OptionKey then
thePS = new PrinterSetup
thePS.MaxHorizontalResolution = -1
thePS.MaxVerticalResolution = -1
DisplayPSValues thePS, "New default PS"
ps = new PrinterSetup
ps.MaxHorizontalResolution = -1
ps.MaxVerticalResolution = -1
ps.SetupString = thePS.SetupString
thePS = ps
DisplayPSValues thePS, "First restore"
ps = new PrinterSetup
ps.MaxHorizontalResolution = -1
ps.MaxVerticalResolution = -1
ps.SetupString = thePS.SetupString
thePS = ps
DisplayPSValues thePS, "New Improved PS"
else
thePS = new PrinterSetup
thePS.MaxHorizontalResolution = -1
thePS.MaxVerticalResolution = -1
DisplayPSValues thePS, "New default PS"
end if
Notice how if you have the Option key held down when clicking the
button it does three "New PrinterSetup" steps and each time it puts
the printersetup info for that step into a listbox for review. The
following shows the horizontal and vertical resolution values
followed by the PageWidth and PageHeight values posted in the listbox.
72 72 612 792
300 300 612 792
300 300 2550 3300
So, the first call gives everything for 72 dpi. The second the
resolution values are updated and the third the resolution and page
size values, along with all the others, are properly set. Why this
happens is beyond me, but if you are not using an Open printer dialog
it seems that you have to go this route.
=== A Mac addict in Tennessee ===
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
