eu estou usando assim pra imprimi o copom fisca de uma pizzaria

        For Copias = 1 To Rs_Con("bd_006")
            Open "LPT1:" For Output As #1
            Print #1,
            Print #1,
            Print #1, String(40, "-")                        'Faz uma Linha
            Print #1, Tab((40 - Len(Rs_Emp("bd_raza"))) / 2); Rs_Emp("bd_raza")  'Centraliza N. Empresa
            Print #1, String(40, "-")
            Print #1, Tab((40 - Len(Rs_Emp("bd_ende") & ", " & Rs_Emp("bd_nume"))) / 2); Rs_Emp("bd_ende") & ", " & Rs_Emp("bd_nume")         'Centraliza Rua
            Print #1, Tab((40 - Len("Telefone " & Rs_Emp("bd_tele"))) / 2); "Telefone " & Rs_Emp("bd_tele")  'Centraliza Dados Adicionais
            Print #1, Tab((40 - Len(Rs_Emp("bd_bair") & "-" & Rs_Emp("bd_esta"))) / 2); Rs_Emp("bd_bair") & "-" & Rs_Emp("bd_esta")       'Centraliza Cidade
            Print #1, " CGC:"; Tab(21); Rs_Emp("bd_cnpj")
            Print #1, " INSC.ESTADUAL:"; Tab(24); Rs_Emp("bd_Insc")
            Print #1, Tab((40 - Len("NAO E DOCUMENTO FISCAL")) / 2); "NAO E DUCUMENTO FISCAL"
            Print #1, Tab((40 - Len("COMPROVANTE NÃO FISCAL")) / 2); "COMPROVANTE NAO FISCAL"
            Print #1, String(40, "-")
            Print #1, Tab((40 - Len("RECEBIMENTO")) / 2); "RECEBIMENTO"
            Print #1, Tab(2); Format(Date, "dd/mm/yy"); "  "; Format(Time, "hh:mm:ss")
            Print #1, String(40, "-")
            Print #1, " Nome/Endereco"
            Print #1, " "; Text1.Text
            Print #1, " "; Left(Text2.Text, 37)
                If Len(Text2.Text) > 37 Then
                    Print #1, " "; Mid(Text2.Text, 38, 36)
                End If
            Print #1, String(40, "-")
            Print #1, " Produto"
            Print #1, "     Qtde       Unitatio   Preco Total"
            Print #1, String(40, "-")
                For i = 1 To Key
                    Print #1, Tab(2); Mid(fg1.TextMatrix(i, 1), 1, 25) 'Limita a 25 letras
                    Print #1, Tab(10 - Len(fg1.TextMatrix(i, 2))); fg1.TextMatrix(i, 2); Tab(25 - Len(fg1.TextMatrix(i, 3))); Moeda(fg1.TextMatrix(i, 3)); Tab(39 - Len(fg1.TextMatrix(i, 4))); Moeda(fg1.TextMatrix(i, 4))
                    Tot = Tot + fg1.TextMatrix(i, 4)
                Next i
            Print #1, String(40, "-")
            Print #1, " Total:"; Tab(39 - Len(Moeda(Tot))); Moeda(Tot)
            Print #1, " Valor Entrega:"; Tab(39 - Len(Moeda(Text4.Text))); Text4.Text
            Print #1, " Valor Total:"; Tab(39 - Len(Moeda(Label16.Caption))); Label16.Caption
            Print #1, String(40, "-")
            Print #1, Tab((40 - Len(Rs_Con.Fields("bd_003"))) / 2); Rs_Con.Fields("bd_003")
            Print #1, Tab((40 - Len(Rs_Con.Fields("bd_004"))) / 2); Rs_Con.Fields("bd_004")
            Print #1, String(40, "-")
               
            Close #1
        Next Copias

so que ela esta pulando uma linha

eu revolvei fazendo uma impressa de teste assim, toda vez que a impressora e desligado tem que "Fazer limpeza de impressão"

ah a impressora e uma EPSON LX300

 

meu codigo "Fazer limpeza de impressão"

    If MsgBox("Fazer limpeza de impressão", 36, "Limpeza de Impressão") = vbYes Then
        Printer.Print Tab((40 - Len("Impressao te teste")) / 2); "Impressao te teste"
        Printer.Print Tab(2); Format(Date, "dd/mm/yy"); "  "; Format(Time, "hh:mm:ss")
        Printer.Print String(40, "-")
        Printer.EndDoc
    Else
        Exit Sub
    End If

Não entendi onde pula a linha. Vc inicia o código com um Print para pular uma linha certo?? E para que serve esta limpeza de impressão??

ele imprimir uma linha sim a outra não

exp

1XXXX

 

2XXXXXX

 

3XXXXXXX

.....

delpois que dou "Fazer limpeza de impressão" ai ele impremi certo

 

1XXXXXXX

2XXXXXXXXXX

3XXXXXXXXXXXX

.....

 ou ele esta impriminda assi por eu dei

dois no começo.

 Print #1,
 Print #1,

 

Hummm, ainda não entendi completamente. Se você ligar a impressora, NÃO FIZER LIMPEZA DE IMPRESSÃO, e imprimir somente 1 cupom fiscal acontece esse pulo entre as linhas?

+/- isto ele imprimi quanta vez eu programar no "Rs_Con("bd_006")" mais ele pula uma linha

Print #1, Tab((40 - Len("COMPROVANTE NÃO FISCAL")) / 2); "COMPROVANTE NAO FISCAL"
            Print #1, String(40, "-")
            Print #1, Tab((40 - Len("RECEBIMENTO")) / 2); "RECEBIMENTO"

COMPROVANTE NÃO FISCAL

pulou esta linha

----------------------------------------

pulou + uma linha

RECEBIMENTO

....

desculpa que sou muito rui de esplica o que eu quero, rsrsrsrsrs

tá pulando pq tem mais caracteres do que a impressora suporta por linha.