Haber si te sirve este ejemplo
Código:
'Imprimimos la hoja en forma Horizontal
Printer.Orientation = vbPRORPortrait '2 Orientación Horizontal vbPRORLandscape '1 Horientación Vertical "vbPRORPortrait"
Printer.ScaleMode = vbCentimeters 'Ponemos la Escala en Centimetros
'Margenes
'Cargamos nuevas fuentes y tamaños para la grilla
Printer.Font = "Verdana"
Printer.FontSize = 12
Printer.ForeColor = vbBlack
Printer.FontBold = True
'Ingresamos el primer dato
Printer.CurrentX = 1
Printer.CurrentY = 3
Printer.Print "Mi primera impresión"
'Final de la impresión
Printer.EndDoc