Usalo asi como te dice el compañero David el Grade
Código:
Private Sub Imprimir_Click() <-------- aquí se pone amarillo
Printer.Orientation = vbPRORPortrait 'Orientación de la hoja Vertical
Printer.FontSize = 12
Printer.Print
Printer.Print
Printer.Print
Printer.Print Tab(15); Label1.Caption; Tab(30); Text.Text
Printer.Print
Printer.Print
Printer.Print Tab(15); Label2.Caption; Tab(30); Text.Text
Printer.Print
Printer.Print
Printer.Print Tab(15); Label3.Caption; Tab(30); Text.Text
Printer.EndDoc
End Sub
Espero te sirva