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

 

        '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