New topic: 

PrinterSetup remembers last printer printed not selection

<http://forums.realsoftware.com/viewtopic.php?t=25500>

       Page 1 of 1
   [ 1 post ]                 Previous topic | Next topic         Author  
Message       Sally           Post subject: PrinterSetup remembers last printer 
printed not selectionPosted: Thu Dec 04, 2008 11:36 pm                          
     
Joined: Tue Nov 25, 2008 12:26 pm
Posts: 4              When I select a printer in the PrinterSetup dialog, the 
selection is not the printer selected rather it is the last printer I printed 
with. If I print with a printer with resolution of 1200 then select a printer 
with resolution 300 I get a quarter sized output. Here is my test routine:
Code:
dim g as graphics
Dim  settings as String
Dim PageSetup as PrinterSetup
Dim horizontalScaler, verticalScaler As Double

PageSetup= New PrinterSetup
PageSetup.MaxHorizontalResolution = -1
PageSetup.MaxVerticalResolution = -1


If PageSetup.PageSetupDialog Then
  settings=PageSetup.SetupString
End If
PageSetup.SetupString = settings
horizontalScaler = PageSetup.HorizontalResolution/72
verticalScaler = PageSetup.VerticalResolution/72

if verticalScaler <> horizontalScaler then
  'bail
  MsgBox "verticalScaler dosen't equal horizontalScaler."
  exit
end

g=openPrinterDialog(PageSetup)

if g <> nil then
  g.TextFont = "Capitals"
  g.TextSize = 12 * horizontalScaler
  
  g.DrawString "My Test String",72 * horizontalScaler ,72 * horizontalScaler
  
end if

What am I doing wrong?
Thanks,
SG
MacOSX10.5.5 2.16GHz Intel Core Duo   
                            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 900 classes with 18000 functions in one REALbasic plug-in. 
The Monkeybread Software Realbasic Plugin v8.1. 

&lt;http://www.monkeybreadsoftware.de/realbasic/plugins.shtml&gt;

[email protected]

Reply via email to