Olá pessoal,

 

é o seguinte: desenvolvi um sistema de locadora e preciso imprimir um recibo de locação, tentei usar o crystal não não consegui, então parti para o printer, estou com o seguinte problema: após terminar a impressão a impressora (LX810) passa um monte de papel em branco, como se o tanho da página fosse A4.

Eu preciso que a impressora não passe o papel após a impressão, tipo terminou de imprimir pare. o papel utilizado são aquelas bobinas 8,5cm de largura.

 

alguém pode me ajudar?

 

Obrigado

 

Att.

André

vc precisa definir o tamanho do formulário nas propriedades da impressora e usar um formato personalizado

isso eu já tentei e não funcionou! nem com crystal nem com printer!

só uma pergunta após o seu código de impressão você está colocando o printer.EndDoc

 

EndDoc = Termina a impressão

KillDoc = Termina imediatamente a impressão

ah, o KillDoc  eu não coloquei! vou testar (só consigo testar hoje de noite - que tiver mais dicas pode enviar)!

 

e o Printer.ScaleMode = 4, influencia alguma coisa?

vbUser = 0: Indica que uma ou mais das propriedades ScaleHeight, ScaleWidth, ScaleLeft e ScaleTop estão configuradas como valores personalizados.
VbTwips = 1: '(Padrão) Twip (1440 twips por polegada lógica; 567 twips por centímetro lógico).
VbPoints = 2: 'Ponto (72 pontos por polegada lógica).
VbPixels = 3: 'Pixel (menor unidade de resolução de monitor ou impressora).
vbCharacters = 4: 'Caractere (horizontal = 120 twips por unidade; vertical = 240 twips por unidade).
VbInches = 5: 'Polegada.
VbMillimeters = 6: 'Milímetro.
VbCentimeters = 7: 'Centímetro.

 

os meus cupom eu faço assim ver ser serve pra vc, ele não pula a folha ele para onde parou de imprimit

 

        'Imprimir na impressora
        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