SoloCodigo

Estoy diseñando una factura, la factura la mando directo a la impresora de punto de venta que es una samsung 270, esta impresora corta automaticamente el papel, cuando es el final de la hoja..
el problema que tengo que cuando imprimi la ultima linea, la impresora deja de imprimir, pero no detecta que es el final de la hoja.......
mandare el codigo

                Dim f As Integer
                f = FreeFile()
                Open "LPT1" For Output As #f
               
                DescripcionNeg = StrConv(DescripcionNeg, vbUpperCase)
                Print #f, Tab(12); DescripcionNeg
               
                Print #f, Tab(12); "RTN:"; Spc(1); RTNNeg
                Print #f, Tab(0); DireccionNeg
                Print #f, Tab(17); TelefonoNeg
                Print #f, Tab(13); "FACTURA DE VENTAS"
                Print #f, Tab(0); "Factura #:"; Tab(14); Trim(txtDatos(0))
                Print #f, Tab(0); "Cliente:"; Tab(10); Trim(txtDatos(1))
                Print #f, Tab(0); "Cajero(a):"; Tab(14); gNombreUsuario
                Print #f,
                Print #f, Tab(0); "Cant"; Tab(6); "Descripcion"; Tab(28); "Desc"; Tab(36); "Valor"
                Print #f, Tab(0); "======================="; Tab(27); "=============="
                If GrillaAgregar.Rows > 1 Then
                    With GrillaAgregar
                        For i = 1 To .Rows - 1
                            Print #f, Tab(0); CCur(.TextMatrix(i, 4)); Tab(6); Trim(.TextMatrix(i, 2)); Tab(28); .TextMatrix(i, 5); Tab(41 - Len(Format(.TextMatrix(i, 8), "###,##0.00"))); Format(.TextMatrix(i, 8), "###,##0.00")
                        Next i
                    End With
                End If
               
                Print #f, Tab(32); "========="
                Print #f, Tab(2); "Impuesto incluido"; Tab(41 - Len(FormatCurrency(txtDatos(6)))); FormatCurrency(txtDatos(6))
                Print #f,
                Print #f, Tab(10); "   Detalle Imp. y Desc"
                Print #f, Tab(12); "    Desc:"; Tab(32 - Len(FormatCurrency(txtDatos(4)))); FormatCurrency(txtDatos(4))
                Print #f, Tab(12); "Impuesto:"; Tab(32 - Len(FormatCurrency(txtDatos(5)))); FormatCurrency(txtDatos(5))
                Print #f,
                Print #f, Tab(4); "Efectivo Recibido"; Tab(35 - Len(FormatCurrency(txtRecibido))); FormatCurrency(txtRecibido)
                Print #f, Tab(4); "Cambio Efectivo"; Tab(35 - Len(FormatCurrency(txtVuelto))); FormatCurrency(txtVuelto)
                Print #f,
                Print #f, Tab(8); "**Gracias por su compra**"
                Print #f, Tab(0); "La factura es beneficio de todos Exijala"
                Close #f
               
                Printer.EndDoc

espero me ayuden..

saludos
Mdavid