Check out the Printer object and discover how
you can create your own purchase orders.
e.g. drawing boxes, lines, print in different
size fonts, etc...
Code:
'prints the purchase order heading, centered
Printer.ScaleMode = vbCharacters
Printer.Font = "Times New Roman"
Printer.FontSize = 12
Printer.CurrentX = (Printer.ScaleWidth - Printer.TextWidth("PURCHASE ORDER")) / 2
Printer.Print "PURCHASE ORDER"
Printer.CurrentX = (Printer.ScaleWidth - Printer.TextWidth("NOT NEGOTIABLE")) / 2
Printer.FontSize = 10
Printer.Print "NOT NEGOTIABLE"
'print a box
Printer.Line (5, 5)-(57, 6), 0, B 'box
'send to printer
Printer.EndDoc
play around with it...