Establecer márgenes para impresión.

gondios
10 de Diciembre del 2003
Tengo este código, pero no me respeta los márgenes. ¿Qué instrucción debo agregar?
Gracias.

Private Sub Command6_Click()
With Printer
.Font = "courier"
.FontSize = 16
End With
Printer.Print TextPRINCIPALNOMBRECOMERCIAL.Text
Printer.EndDoc
End Sub