ListBox1.DeleteAllRows
Dim settings as String
Dim PageSetup As New PrinterSetup
Dim g as Graphics
PageSetup.MAxHorizontalResolution = -1
PageSetup.MaxVerticalResolution = -1
CAll PageSetup.PageSetupDialog
g = OpenPrinterDialog(PageSetup)
Dim i as integer
ListBox1.AddRow "Height: " + Str(PageSetup.Height)
ListBox1.Cell(i,1) = "PageHeight: " + Str(PageSetup.PageHeight)
ListBox1.Cell(i,2) = "g: " + Str(g.Height)
I = I + 1
ListBox1.AddRow "Width: " + Str(PageSetup.Width)
ListBox1.Cell(i,1) = "PageWidth: " + Str(PageSetup.PageWidth)
ListBox1.Cell(i,2) = "g: " + Str(g.Width)
I = I + 1
ListBox1.AddRow "Left: " + Str(PageSetup.Left)
ListBox1.Cell(i,1) = "PageLeft: " + Str(PageSetup.PageLeft)
I = I + 1
ListBox1.AddRow "Top: " + Str(PageSetup.Top)
ListBox1.Cell(i,1) = "PageTop: " + Str(PageSetup.Top)
I = I + 1
ListBox1.AddRow "HorizontalResolution: " + Str
(PageSetup.HorizontalResolution)
ListBox1.Cell(i,1) = "MaxHorizontalResolution: " + Str
(PageSetup.MaxHorizontalResolution)
I = I + 1
ListBox1.AddRow "VerticalResolution: " + Str
(PageSetup.VerticalResolution)
ListBox1.Cell(i,1) = "MaxVerticalResolution: " + Str
(PageSetup.MaxVerticalResolution)
Which gave the following results:
Height: 734 PageHeight: 792 g: 734
Width: 576 PageWidth: 612 g: 576
Left: 0 PageLeft: -18
Top: 0 PageTop: 0
HorizontalResolution: 72 MaxHorizontalResolution: -1
VerticalResolution: 72 MaxVerticalResolution: -1
I tried setting MaxHorizontalResolution & MaxVerticalResolution to
300 but everything else stayed the same...
How can I print at > 72 DPI?
Thanks,
- Karen
_______________________________________________
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>
