Printer Positioning
Hi Bryon,
Use Scale[Width/Height] for your computation. Scale[Width/Height] will
give you the client area which is the printable area.
Don Funk
Sample code…
Sub Command1_Click ()
Dim PageNo As String
Header$ = "Yess"
Printer.CurrentX = 0
Printer.Print Date$;
Printer.CurrentX = (Printer.ScaleWidth – Printer.TextWidth(Header$))
Printer.CurrentX = Printer.CurrentX / 2
Printer.Print Header$;
PageNo = "Page: " + Format$(12, "###")
Printer.CurrentX = Printer.ScaleWidth – Printer.TextWidth(PageNo)
Printer.Print PageNo
Printer.Print " "
Printer.EndDoc
End Sub