Override Printer Margins (?)

[Anne DeBlois]

Hi,

We are developing a database application in Visual Basic.NET 2005. The
application will print label pages. Using the PrintDocument and GDI+
classes, I noticed a slight change when printing to a laser printer and when
printing to an inkjet printer. It's got to be the margins (defined by the
printer driver).

Is it possible to programmaticall y override the driver's margins in VB (at
our risks)? If so, how to? Thanks in advance,

ANNE DEBLOIS

[Walter Wang [MSFT]]

Hi Anne,

Thank you for your post.

Based on my understanding, your question is how to control printed page's
margin. If I've misunderstood anything, please feel free to post here.

You can force the printer use your specified margins by setting
PrintDocument.D efaultPageSetti ngs.Margins, for example:

PrintDocument1. DefaultPageSett ings.Margins = New Printing.Margin s(0, 0,
0, 0)
PrintDocument1. OriginAtMargins = True
PrintPreviewDia log1.Document = PrintDocument1
PrintPreviewDia log1.ShowDialog ()

When OriginAtMargins is true, the Graphics object location takes into
account the PageSettings.Ma rgins property value and the printable area of
the page. When OriginAtMargins is false, only the printable area of the
page is used to determine the location of the Graphics object origin, the
PageSettings.Ma rgins value is ignored.

Hope this helps. Please feel free to post here if anything is unclear.

Regards,
Walter Wang (wa****@online. microsoft.com, remove 'online.')
Microsoft Online Community Support

=============== =============== =============== =====
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
=============== =============== =============== =====

This posting is provided "AS IS" with no warranties, and confers no rights.

[Anne DeBlois]

Hi,

I think you got it right, at least for now, I think this is what I was
looking for.

Thank you, Mr. Wang!

Anne

"Walter Wang [MSFT]" <wa****@online. microsoft.coma écrit dans le message
de news: EZ************* *@TK2MSFTNGXA01 .phx.gbl...

Hi Anne,

Thank you for your post.

Based on my understanding, your question is how to control printed page's
margin. If I've misunderstood anything, please feel free to post here.

You can force the printer use your specified margins by setting
PrintDocument.D efaultPageSetti ngs.Margins, for example:

PrintDocument1. DefaultPageSett ings.Margins = New Printing.Margin s(0, 0,
0, 0)
PrintDocument1. OriginAtMargins = True
PrintPreviewDia log1.Document = PrintDocument1
PrintPreviewDia log1.ShowDialog ()

When OriginAtMargins is true, the Graphics object location takes into
account the PageSettings.Ma rgins property value and the printable area of
the page. When OriginAtMargins is false, only the printable area of the
page is used to determine the location of the Graphics object origin, the
PageSettings.Ma rgins value is ignored.

Hope this helps. Please feel free to post here if anything is unclear.

Regards,
Walter Wang (wa****@online. microsoft.com, remove 'online.')
Microsoft Online Community Support

[Walter Wang [MSFT]]

Hi,

Appreciate your update and response. If you have any other questions or
concerns, please do not hesitate to contact us. It is always our pleasure
to be of assistance.

Have a nice day!

Regards,
Walter Wang (wa****@online. microsoft.com, remove 'online.')
Microsoft Online Community Support

=============== =============== =============== =====
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
=============== =============== =============== =====

This posting is provided "AS IS" with no warranties, and confers no rights.

[Anne DeBlois]

Hi,

I am sorry for the delay. I just tried the code you provided:

PrintDocument1. DefaultPageSett ings.Margins = New Printing.Margin s(0, 0,
0, 0)
PrintDocument1. OriginAtMargins = True

I added this code to print a rectangle located at the very upperleft corner
of the page:

Dim rectangle As New Rectangle(0, 0, 400, 80)

e.Graphics.Fill Rectangle(Brush es.Cyan, rectangle)

e.Graphics.Draw Rectangle(Pens. Cyan, rectangle)
I tried it two different printers, and I got my rectangle printed within a
1-inch margin!! Something has got to be wrong in my code...

Anne

[Anne DeBlois]

Hi,

I also changed the following line:
PrintDocument1. DefaultPageSett ings.Margins = New Printing.Margin s(0, 0, 0,
0)

To this code:
PrinterDocument 1.PrinterSettin gs.DefaultPageS ettings.Margins = New
Printing.Margin s(0,0,0,0)

Still no luck

I even changed the zeros for 200, and expected a 2-inch margin, but again I
got 1 inch.

What might be the problem? I am using .NET 2.0 (VS 2005)

ANNE DEBLOIS

"Anne DeBlois" <an*********@co mmunity.nospama écrit dans le message de
news: e2************* *@TK2MSFTNGP06. phx.gbl...

Hi,

I am sorry for the delay. I just tried the code you provided:

> PrintDocument1. DefaultPageSett ings.Margins = New Printing.Margin s(0,
0,
0, 0)
PrintDocument1. OriginAtMargins = True

I added this code to print a rectangle located at the very upperleft
corner of the page:

Dim rectangle As New Rectangle(0, 0, 400, 80)

e.Graphics.Fill Rectangle(Brush es.Cyan, rectangle)

e.Graphics.Draw Rectangle(Pens. Cyan, rectangle)
I tried it two different printers, and I got my rectangle printed within a
1-inch margin!! Something has got to be wrong in my code...

Anne