Envio Codigos de control a impresora

[Neverhood]

Lo más práctico es mandar la impresión en "modo texto", dado el modelo de la impresora. Prueba con el siguiente

Código:

    cPort = "LPT1
    Open cPort For Output As #1
    
    Print #1, Tab(1); "CANT"; Tab(9); "P R O D U C T O"; Tab(29); "P.U."; Tab(34); "SUBTOT"
    Print #1, Tab(1); String(40, "=")
    
    Print #1, Tab(2); "TOTAL TICKET # 1"; _
                    Tab(39 - Len(Format(TotalF, "##,##0.00"))); _
                            Format(TotalF, "##,##0.00")
    Print #1, Tab(2); "TOTAL TICKET # 2"; _
                    Tab(39 - Len(Format(TotalN, "##,##0.00"))); _
                            Format(TotalN, "##,##0.00")
    
    CantidadTotal = TotalF + TotalN
  
    Print #1, Tab(1); String(40, "=")
    Print #1, Tab(15); "TOTAL: $ "; Tab(39 - Len(Format(CantidadTotal, "##,##0.00"))); Format(CantidadTotal, "##,##0.00")
    'Print #1, Tab(15); "IVA INCLUIDO: "; Tab(39 - Len(Format(IvaProducto, "##,##0.00"))); Format(IvaProducto, "##,##0.00")
    Print #1, Tab(15); "EFECTIVO: $ "; Tab(39 - Len(Format(TxtEfectivo, "##,##0.00"))); Format(TxtEfectivo, "##,##0.00")
    Print #1, Tab(15); "------------------------"
    Print #1, Tab(15); "CAMBIO: $ "; Tab(39 - Len(Format(TxtCambio, "##,##0.00"))); Format(TxtCambio, "##,##0.00")
    Print #1, Tab((41 - Len(TipoPagoVenta)) \ 2); TipoPagoVenta
    Print #1, Tab((40 - Len("GRACIAS POR SU COMPRA!")) \ 2); "GRACIAS POR SU COMPRA!"
    Print #1,
    Print #1,
    Print #1,
    Print #1,
    Print #1,
    Close #1