Cara eu não testei mas tenta assim:
Printer.Line (1000, 2000)-(5000, 2000), vbRed
'Draw down from end of Min line
'don't change X pos
'change Y pos by 4000
Printer.Line Step(0, 0)-Step(0, 2000), vbRed
'draw across 'change X pos by -4000
'don't change Y pos
Printer.Line Step(0, 0)-Step(-4000, 0), vbRed
'draw up
'don't change X pos
'change Y pos by -4000
Printer.Line Step(0, 0)-Step(0, -2000), vbRed
Printer.EndDoc
ou assim:
Printer.Line (1000, 2000)-(5000, 4000), vbRed, B
Printer.EndDoc
qq coisa é só postar
t+