Te envio un ejemplo
Printer.FontName = "Courier New"
Printer.FontSize = 16
Printer.FontBold = True
Printer.Print
Printer.Print Space(20) & "Titulo"
Printer.Print Space(20) & "------"
Printer.Print
Printer.FontSize = 10
Printer.FontBold = False
Printer.Print Space(10) & "Detalle 1"
Printer.Print Space(10) & "Detalle 2"
Printer.Print Space(10) & "Detalle 3"
Printer.Print Space(10) & "Detalle 4"
Printer.Print Space(10) & "Detalle 5"
Printer.EndDoc
'Si necesitas hacer un salto de página escribe lo siguiente
'Printer.NewPage
