I am migrating my VB6 GoldMine add-ons to VB.NET to allow for
enhancements. I have no problem getting text to print, but I cannot get the
4 PrintPage events that are needed to print a line to work.

I need a line that has a width of 5 that starts 3.797 inches from the top
edge of the paper, starts 0.613 inches from the left edge of the paper and
ends at the edge of the paper so I know where to trim the paper for proper
insertion in a form envelope.  When one of the PrintPage events executes I
get a large solid black box that covers up the printed text below which the
line is supposed to print.  In VB6 I used the code

'spool end of fly slip marker
Printer.CurrentX = 0.613
Printer.DrawWidth = 5
Printer.Line (0.613, 3.797)-(8.5, 3.797)

with the ScaleMode set to inches by a special subrountine that makes the
values of .CurrentX and .CurrentY be from the edge of the paper not the
start of the printable area.

In VB.NET I am using the code

'define variables
Dim fontRA = New Font(conCfgInfo.strTypeFaceRA, conCfgInfo.intFontSizeRA)
Dim fontA = New Font(conCfgInfo.strTypeFaceA, conCfgInfo.intFontSizeA)
Dim pen As New Drawing.Pen(System.Drawing.Color.Black, 5)
Dim strAddress As String
Dim strReturnAddress As String

'create return address
....

'create address
....

'change unit of measure for printing
e.Graphics.PageUnit = GraphicsUnit.Inch

'print return address
e.Graphics.DrawString(strReturnAddress, fontRA, Brushes.Black, 0.613, 0.826)

'print address
e.Graphics.DrawString(strAddress, fontA, Brushes.Black, 0.613, 2.28)

'print end of fly slip marker
e.Graphics.DrawLine(pen, 0.613F, 3.797F, 8.5F, 3.797F)

with

the margins set to 0 in the BeginPrint Event

If I remove the letter F after each number in the DrawLine code an error
that prevents building the solutions results.

Show quote Hide quote I didn't test the sample, but maybe the width of the pen is interpreted in
inches too and thus a filled box is drawn.

Determine if "Hide extensions for known file types" is active
Need help updating table
What scope is best for defining Enum type?
VB6 to VB.Net Conversion
How to overload method of third party component?
Selecting specific columns from a dataview?
Limiting the directories somebody can browse to.....
StringBuilder size question?
Simple Reflection Question
countdown timer