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 ".VisibleClipBounds.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 ".VisibleClipBounds.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.EventArgs) Handles printBtn.Click

Dim blah As New PrintDocument
blah.DocumentName = "mydoc.doc"

AddHandler blah.PrintPage, AddressOf PrintPage

Dim printDialog1 As New PrintDialog
printDialog1.Document = blah

If (printDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then

blah.PrinterSettings = printDialog1.PrinterSettings

blah.Print()
End If

End Sub

Private Sub PrintPage(ByVal sender As Object, ByVal ev As
PrintPageEventArgs)

Dim myWidth as single = ev.Graphics.VisibleClipBounds.Width
Dim myHeight as single = ev.Graphics.VisibleClipBounds.Height

ev.Graphics.DrawImage(printLogoImage.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.PrinterSettings.PaperSizes.Count - 1
If ev.PageSettings.PrinterSettings.PaperSizes(i).Kind =
PaperKind.A4 Then
ev.PageSettings.PaperSize =
ev.PageSettings.PrinterSettings.PaperSizes(i)
Exit For
End If
Next


it does not update "VisibleClipBounds"

Any suggestions???
Thankyou
Joshua

[Herfried K. Wagner [MVP]]

* "Joshua Anderson" <jo**@mastermind.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 ".VisibleClipBounds.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 ".VisibleClipBounds.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=uLE8v9%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>