Center Print

[briancoats]

I know there has to be a way though I don't know what it ir. How do you use the printer. object and tell it to center the print on the page?

Brian Coats

p.s. I figure this will rate as an easy one for someone.

 

[vb5prgrmr]

Hmmm... Something like...
[tt]
Option Explicit

Private Sub Form_Load()

Dim L As Long, T As Long, WL As Long, WT As Long

L = Printer.Width
T = Printer.Height

WL = Printer.TextWidth("This is a test&quot
WT = Printer.TextHeight("This is a test&quot

Printer.CurrentX = ((L / 2) - (WL / 2))
Printer.CurrentY = ((T / 2) - (WT / 2))

Printer.Print "This is a test"
Printer.EndDoc

End Sub
[/tt]

Good Luck