Realmente es muy sencillo. Debemos colocar un boton que realice la función de imprimir lo que se ha ingresado en el formulario. Una vez que se realiza el pago se imprime y listo. Ahora, internamente lo que hacemos es crear un archivo temporal y con la ayuda de HTML generamos un reporte que muestre y capture los datos que se ingresaron en el formulario. A continuacion les dejo el codigo de ejemplo.
PUBLIC SUB BTNImprimir_Click()
DIM Factura AS File
DIM Contador AS Integer = 0
OPEN “/tmp/Reporte.html” FOR CREATE AS #Factura
PRINT #Factura, “<html>”
PRINT #Factura, ” <head><title>Reporte de Sophia – Creado por Pedro Perez -</title></head>”
PRINT #Factura, ” <body topmargin = ‘0′ leftmargin=’0′ onload=’window.print()’>”
PRINT #Factura, “ <table align = ‘center’ width = 500 border = ‘1′ cellpadding=’0′ cellspacing=’0′>”
PRINT #Factura, “ <caption><h1>MiniSúper Joselyn</h1></caption>”
PRINT #Factura, “ <tr>”
PRINT #Factura, “ <td align = ‘center’><b>Cliente</b></td>”
PRINT #Factura, “ <td align = ‘center’><b>Tipo de pago</b></td>”
PRINT #Factura, “ <td align = ‘center’><b>Número</b></td>”
PRINT #Factura, “ <td align = ‘center’><b>Fecha</b></td>”
PRINT #Factura, “ </tr>”
PRINT #Factura, “ <tr>”
PRINT #Factura, “ <td align = ‘center’>” & CMBCliente.Text & “</td>”
PRINT #Factura, “ <td align = ‘center’>” & CMBTipoPago.Text & “</td>”
PRINT #Factura, “ <td align = ‘center’>” & TBXNumeroFac.Text & “</td>”
PRINT #Factura, “ <td align = ‘center’>” & DTBFecha.Value & “</td>”
PRINT #Factura, “ </table>”
PRINT #Factura, “ <hr>”
PRINT #Factura, “ <table align = ‘center’ border = ‘1′ width=’1008′ cellpadding=’0′ cellspacing=’0′>”
PRINT #Factura, “ <tr>”
PRINT #Factura, “ <td align = ‘center’><b>Código</b></td>”
PRINT #Factura, “ <td align = ‘center’><b>Descripción</b></td>”
PRINT #Factura, “ <td align = ‘center’><b>Cantidad</b></td>”
PRINT #Factura, “ <td align = ‘center’><b>Precio</b></td>”
PRINT #Factura, “ <td align = ‘center’><b>Gravado</b></td>”
PRINT #Factura, “ <td align = ‘center’><b>Subtotal</b></td>”
PRINT #Factura, “ </tr>”
WHILE Contador < LSBCodigo.Count
PRINT #Factura, “ </tr>”
PRINT #Factura, “ <td align = ‘center’>” & LSBCodigo[Contador].Text & “</td>”
PRINT #Factura, “ <td align = ‘center’>” & LSBDescripcion[Contador].Text & “</td>”
PRINT #Factura, “ <td align = ‘center’>” & LSBCantidad[Contador].Text & “</td>”
PRINT #Factura, “ <td align = ‘center’>” & LSBPrecio[Contador].Text & “</td>”
IF LSBGravado[Contador].Text = “T” THEN
PRINT #Factura, “ <td align = ‘center’> TRUE</td>”
ELSE
PRINT #Factura, “ <td align = ‘center’>FALSE</td>”
END IF
PRINT #Factura, “ <td align = ‘center’>” & LSBSubTotal[Contador].Text & “</td>”
PRINT #Factura, “ </tr>”
INC Contador
WEND
PRINT #Factura, “ </table>”
PRINT #Factura, “ <hr>”
PRINT #Factura, “ <table align = ‘center’ border = ‘1′ cellpadding=’0′ cellspacing=’0′>”
PRINT #Factura, “ <tr>”
PRINT #Factura, “ <td align = ‘center’><b>Cancelada</b></td>”
PRINT #Factura, “ <td align = ‘center’><b>Monto bruto</b></td>”
PRINT #Factura, “ <td align = ‘center’><b>Descuento</b></td>”
PRINT #Factura, “ <td align = ‘center’><b>Impuesto</b></td>”
PRINT #Factura, “ <td align = ‘center’><b>Monto a pagar</b></td>”
PRINT #Factura, “ </tr>”
PRINT #Factura, “ </tr>”
IF CKBCancelada.Value = TRUE THEN
PRINT #Factura, “ <td align = ‘center’>TRUE</td>”
ELSE
PRINT #Factura, “ <td align = ‘center’>FALSE</td>”
END IF
PRINT #Factura, “ <td align = ‘center’>” & TBXBruto.Text & “</td>”
PRINT #Factura, “ <td align = ‘center’>” & TBXDescuento.Text & “</td>”
PRINT #Factura, “ <td align = ‘center’>” & TBXImpuesto.Text & “</td>”
PRINT #Factura, “ <td align = ‘center’>” & TBXMonto.Text & “</td>”
PRINT #Factura, “ </tr>”
PRINT #Factura, “ </table>”
PRINT #Factura, ” </body>”
PRINT #Factura, “</html>”
CLOSE #Factura
FRMListado.Visible = TRUE
saludos
amigo me podrian facilitar los pasos para instalar gambas en opensuse 10.2 soy novotao en esto y me gustaria aprender
gracias de antemano cagua venezuela
Por: ARMANDO el Junio 27, 2008
a las 5:08 pm
necesito imprimir un html por la impresora si lo tienes te lo agradezco
Por: oscar el Enero 27, 2009
a las 10:17 pm