Printing Problem - How to get CORRECT bounds of page

[Joshua Anderson]

Hi,

Ok I am doing a print app, what I am trying to do is get the EXACT
boundaries of the page, I want to print to the top left, 0,0, which is fine,
but bottom right is a problem.

When I use ".VisibleClipBo unds.Width" I get the correct with the first time,
for the default printer, that is set to A4.

If I select another printer from the list, it gets a bit hairy.
If the printer is not set to A4, the ".VisibleClipBo unds.Width" are wrong.

If I set the page size to A4 is still does not work, it seems to me that the
page settings are the setttings for the default selected printer, even if
you select another printer.

Here is some code:

Private Sub printBtn_Click( ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles printBtn.Click

Dim blah As New PrintDocument
blah.DocumentNa me = "mydoc.doc"

AddHandler blah.PrintPage, AddressOf PrintPage

Dim printDialog1 As New PrintDialog
printDialog1.Do cument = blah

If (printDialog1.S howDialog() = System.Windows. Forms.DialogRes ult.OK) Then

blah.PrinterSet tings = printDialog1.Pr interSettings

blah.Print()
End If

End Sub

Private Sub PrintPage(ByVal sender As Object, ByVal ev As
PrintPageEventA rgs)

Dim myWidth as single = ev.Graphics.Vis ibleClipBounds. Width
Dim myHeight as single = ev.Graphics.Vis ibleClipBounds. Height

ev.Graphics.Dra wImage(printLog oImage.Image, (myWidth -
printLogoImage. Image.Width), (myHeight - printLogoImage. Image.Height),
printLogoImage. Image.Width, printLogoImage. Image.Height)

End Sub

''''''''''''''' '
When you do this:
''''''''''''''' ''''''''''''''' ''''''''''''''' '''''''
For i As Int16 = 0 To
ev.PageSettings .PrinterSetting s.PaperSizes.Co unt - 1
If ev.PageSettings .PrinterSetting s.PaperSizes(i) .Kind =
PaperKind.A4 Then
ev.PageSettings .PaperSize =
ev.PageSettings .PrinterSetting s.PaperSizes(i)
Exit For
End If
Next


it does not update "VisibleClipBou nds"

Any suggestions???
Thankyou
Joshua

[Herfried K. Wagner [MVP]]

* "Joshua Anderson" <jo**@mastermin d.net.au> scripsit:

Ok I am doing a print app, what I am trying to do is get the EXACT
boundaries of the page, I want to print to the top left, 0,0, which is fine,
but bottom right is a problem.

When I use ".VisibleClipBo unds.Width" I get the correct with the first time,
for the default printer, that is set to A4.

If I select another printer from the list, it gets a bit hairy.
If the printer is not set to A4, the ".VisibleClipBo unds.Width" are wrong.

If I set the page size to A4 is still does not work, it seems to me that the
page settings are the setttings for the default selected printer, even if
you select another printer.

Maybe you want to determine phys. margins:

<http://www.google.com/groups?selm=uLE 8v9%23iDHA.2328 %40TK2MSFTNGP12 .phx.gbl>

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
<http://www.mvps.org/dotnet>

<http://www.plig.net/nnq/nquote.html>