## Imprimir com PRINTER em modo PAISAGEM ##

VEJA O CODIGO AI GALERA PRA OS MESTRES ANALIZAREM, SÓ QUE ESTÁ TUDO NA VERTICAL (RETRATO):

'#####INICIO CONFIG. IMPRESSÃO
Dim PaginaInicial, Paginafinal, numerodecopias, i
    CommonDialog1.CancelError = True

    On Error GoTo TrataErro

    'mostra a janela para impressora
    CommonDialog1.ShowPrinter
    'Captura os valores definidos pelo usuário na janela
    PaginaInicial = CommonDialog1.FromPage
    Paginafinal = CommonDialog1.ToPage
    numerodecopias = CommonDialog1.Copies
    For i = 1 To numerodecopias
'------------------------
'INICIA A IMPRESSÃO

            Printer.ScaleMode = 7       '<< Determina medida em Centimetros (cm)
            'Printer.ScaleLeft = -0.5    '<< Determina posição inicial (esquerda) de todas as linhas seguintes

            '-----------------------
            Printer.FontName = "Arial"
            Printer.FontBold = True

            Printer.FontSize = 12
            Printer.CurrentX = 1.5       '<< X (alinhamento Horizontal  -  )
            Printer.CurrentY = 10.1      '<< Y (alinhamento Vertical    |  )
            Printer.Print "Código(s): "; txt_codigo
            Printer.CurrentX = 1.4         '<< X (alinhamento Horizontal  -  )
            Printer.CurrentY = 10.6      '<< Y (alinhamento Vertical    |  )
            Printer.Print ""; Space(20); txt_codigo2

            Printer.CurrentX = 1.4         '<< X (alinhamento Horizontal  -  )
            Printer.CurrentY = 11.2     '<< Y (alinhamento Vertical    |  )
            Printer.Print ""; Space(20); txt_descricao

            Printer.FontSize = 40
            Printer.CurrentX = 0.5       '<< X (alinhamento Horizontal  -  )
            Printer.CurrentY = 12.1      '<< Y (alinhamento Vertical    |  )
            Printer.Print "R$ "

            Printer.FontSize = 130
            Printer.CurrentX = 2.2       '<< X (alinhamento Horizontal  -  )
            Printer.CurrentY = 12.1      '<< Y (alinhamento Vertical    |  )
            Printer.Print ""; txt_valor

            Printer.FontItalic = True    '<< Intalico
            Printer.FontUnderline = True '<< Sublinhado
            Printer.FontSize = 40
            Printer.CurrentX = 2.3       '<< X (alinhamento Horizontal  -  )
            Printer.CurrentY = 18.1      '<< Y (alinhamento Vertical    |  )
            Printer.Print ""; txt_msg1
            Printer.FontItalic = False   '<< Intalico
            Printer.FontUnderline = False '<< Sublinhado

            Printer.FontBold = False     '<< Negrito
            Printer.FontSize = 8
            Printer.CurrentX = 2.2      '<< X (alinhamento Horizontal  -  )
            Printer.CurrentY = 25.1      '<< Y (alinhamento Vertical    |  )
            Printer.Print ""; txt_msg2
            Printer.CurrentX = 2.2       '<< X (alinhamento Horizontal  -  )
            Printer.CurrentY = 25.4      '<< Y (alinhamento Vertical    |  )
            Printer.Print ""; txt_msg2A
            Printer.CurrentX = 2.2       '<< X (alinhamento Horizontal  -  )
            Printer.CurrentY = 25.7      '<< Y (alinhamento Vertical    |  )
            Printer.Print ""; txt_msg2B

            Printer.Print ""
            Printer.EndDoc
            '-----------------------

'TERMINA A IMPRESSÃO
'-----------------------
    Next