Imprimir comprobantes (facturas/Notas de Debito/Credito) desde Visual Basic y Crystal

[porciento_veinte]

Hola Buji.

por lo general por una cuestion practica, lo que yo suelo hacer es almacenar en una tabla las coordenadas X e Y de cada uno de los datos que se deben imprimir en el comprobante, cosa que si el cliente cambia el formato del comprobante o el tamaño a mi solo me toca modificar las coordenadas nuevas donde se imprimen por ejemplo el nombre del cliente, la fecha, la direccion, etc.

Luego en el boton Imprimir (suponiendo que tengas un boton imprimir) coloco todos los parametros de la impresora y al final llamo a una Funcion "Colocar" con los parametros necesarios, por ejemplo coordenadas X, Y, tamaño, FB (Nedrita) y FU (Subrayado) asi


if Colocar (Texto, Tam, CoordX, CoordY, FB, FU) = True then
...
...
else
MsgBox error.number
...
...
end if
Printer.SendDoc

y en la Funcion Colocar algo asi:

Function Colocar (Texto as String, Tam as Integer, CoordX as Double, CoordY as Double, FB as Boolean, FU as Boolean) as Boolean
Printer.CurrentX = CoordX
Printer.CurrentY = CoordY
Printer.FontBold = FB
Printer.FontSize = Tam
Printer.FontUnderscore = FU
Printer.Print Texto
End Function


No se si hay errores en este codigo porq lo escribi aca, no lo copie de VB.

Espero te sirva o te de ideas.