Olá gente, estou com um probleminha tento imprimir etiquetas (mala direta) em um formulario continuo na lx-300 e não consigo fazer com todas saim certas, pois depois e uma certa quantidade começa a sair errado a possição. Já tentei de vairas formas.

 

        Printer.ScaleMode = vbCentimeters
'        Printer.PaperSize = vbPRPSUser
        Printer.Height = 2.5 * 567           'Altura da etiq. em cm. * 1/2 twip
        Printer.Width = 20.6 * 567          'Largura em cm. * 1/2 twip
   
    With Printer
        .Orientation = vbPRORPortrait    'Imprime na vertical
        .PrintQuality = vbPRPQDraft      'Imprime com qualidade baixa e maior velocidade
        .Duplex = vbPRDPSimplex          'Imprime na frente do formulário
        .ColorMode = vbPRCMMonochrome    'imprime em preto e branco
'        .Copies = 1                     'Tem impressoara que não suporta este comando
        .Font.Name = "Draft 10cpi"       'Fonte de impressora matricial (LX-300)
        .FontBold = True
    End With
   
For i = 0 To 10
               
        Printer.Print "Manoel Carlos da Silva"
        Printer.Print "A/C: Manoel Carlos"
        Printer.Print "Rua Manoel Novais nº 50"
        Printer.Print "Cidade Nova Cidade-SP"
        Printer.Print "CEP: 48890-000"
        Printer.Print "-"
        Printer.Print "-"
        Printer.Print "-"
        Printer.Print "-"
        Printer.Print "-"
           
Next i

    Printer.EndDoc

 

Alguma dica ?

Não deu certo sem o PRINTER.PRINT "-" imprime as etiquetas pegadas uma nas outras.

Alguma dica ?

entra no site www.vbmania.com.br q la tem um exemplo de impressao de etiquetas com printer .

 

Ok

3.5 X 8