Discussion:
Rutina Imprime Factura
(demasiado antiguo para responder)
JDGD
2005-08-25 22:44:40 UTC
Hola grupo, nesecito la siguiente ayuda; tengo que hacer una aplicacion que
imprima en colmnas predeterminadas o formato preimpreso, pero con vb 6.0,
no se como hacerlo, si alguin tiene una rutina que permita imprimir en fila,
columna, y que realice un salto de pagina para alinearse a la factura
siguiente, de antemano se lo agradecere, gracias por todo su aporte y
ayuda...
Saludos Cordiales...
J. David G.




begin 666 Loading Image...
M1TE&.#EAH0`1`( ````3S/___R'Y! $```$`+ ````"A`!$```+_C(^IR^T/
MHYRTVHNSWKS[#X9B!I0.D*"(JJBL]"[ES,54;#_Y>>P!GF*X*C[#JSA:!9._
M)>UGZCFC-%34>+4VH;9CTY6%8J7;K_BL-&)96JYZ+0VWR$ E^TU];Z_ENCJ/
M!X:***@WEC@4. AW=\@UT[:'Z+0D,VE9:<EHMHD("4E'ZABG&0DDNHG:
MQ:=')NFYNAC;M=>Z`DC+&3>7YNO(Z_D;:UM,>S=Z2PP;/'R<F!J4S&CHYQ?=
MFQPLC0G]UVG\!*?H#,:FQ6?2[(8Y+B>=SJX-['[X-%_/Q-_OCS$IH,"!! L:
:/(@PH<*%#!LJ_ <QHL2)%"M:O(@Q8X8"`#L`
`
end
Juan Jose Costello Levien
2005-08-26 00:39:42 UTC
Hola David,

Podrías automatizar con Excel la emisión de facturas. Mientras vas leyendo
la fuente de datos, vas escribiendo una planilla Excel con los datos de
salida.
Un ejemplo de automatismo sería este:

Private Sub Command1_Click()
Dim exl As Excel.Application
Dim xw As Excel.Workbook
Dim xls As Excel.Worksheet


Set exl = New Excel.Application
Set xw = exl.Workbooks.Add

Set xls = xw.Worksheets.Add

xls.Cells(1, 1) = "Hola."
xls.Cells(2, 1) = "Esta es una factura."
xls.Cells(3, 1) = "_____________________________"
xls.Cells(1, 7) = "Factura hecha por:"
xls.Cells(2, 7) = "JDGD"

xw.SaveAs "c:\factura.xls"

exl.Quit


End Sub

Puedes agregar logos, gráficos, lo que quieras.

Un saludo.

Juan
Post by JDGD
Hola grupo, nesecito la siguiente ayuda; tengo que hacer una aplicacion que
imprima en colmnas predeterminadas o formato preimpreso, pero con vb 6.0,
no se como hacerlo, si alguin tiene una rutina que permita imprimir en fila,
columna, y que realice un salto de pagina para alinearse a la factura
siguiente, de antemano se lo agradecere, gracias por todo su aporte y
ayuda...
Saludos Cordiales...
J. David G.
"Victor Koch" <v i c t o r (arroba)correo(punto)waldbott(punto)com(punto)ar>
2005-08-26 12:23:44 UTC
Hola Juan,

Eso obliga al cliente a adquirir Excell, sin considerar que si tiene cuatro
puestos de facturación e impresión debería comprar cuatro licencias de
Excell.

--
Un saludo, Víctor Koch.
Post by Juan Jose Costello Levien
Hola David,
Podrías automatizar con Excel la emisión de facturas. Mientras vas leyendo
la fuente de datos, vas escribiendo una planilla Excel con los datos de
salida.
Private Sub Command1_Click()
Dim exl As Excel.Application
Dim xw As Excel.Workbook
Dim xls As Excel.Worksheet
Set exl = New Excel.Application
Set xw = exl.Workbooks.Add
Set xls = xw.Worksheets.Add
xls.Cells(1, 1) = "Hola."
xls.Cells(2, 1) = "Esta es una factura."
xls.Cells(3, 1) = "_____________________________"
xls.Cells(1, 7) = "Factura hecha por:"
xls.Cells(2, 7) = "JDGD"
xw.SaveAs "c:\factura.xls"
exl.Quit
End Sub
Puedes agregar logos, gráficos, lo que quieras.
Un saludo.
Juan
Post by JDGD
Hola grupo, nesecito la siguiente ayuda; tengo que hacer una aplicacion
que
Post by JDGD
imprima en colmnas predeterminadas o formato preimpreso, pero con vb
6.0,
Post by Juan Jose Costello Levien
Post by JDGD
no se como hacerlo, si alguin tiene una rutina que permita imprimir en
fila,
Post by JDGD
columna, y que realice un salto de pagina para alinearse a la factura
siguiente, de antemano se lo agradecere, gracias por todo su aporte y
ayuda...
Saludos Cordiales...
J. David G.
Juan Jose Costello Levien
2005-08-26 13:06:14 UTC
Que tal Víctor,

Es verdad. Lo que pasa es que como supuse que casi todo el mundo tiene
Office XP instalado (y además queda muy bien hecho en Excel) pensé que valía
la pena.

Un saludo.

Juan



"Victor Koch" <v i c t o r (arroba)correo(punto)waldbott(punto)com(punto)ar>
Post by "Victor Koch" <v i c t o r (arroba)correo(punto)waldbott(punto)com(punto)ar>
Hola Juan,
Eso obliga al cliente a adquirir Excell, sin considerar que si tiene cuatro
puestos de facturación e impresión debería comprar cuatro licencias de
Excell.
--
Un saludo, Víctor Koch.
Post by Juan Jose Costello Levien
Hola David,
Podrías automatizar con Excel la emisión de facturas. Mientras vas leyendo
la fuente de datos, vas escribiendo una planilla Excel con los datos de
salida.
Private Sub Command1_Click()
Dim exl As Excel.Application
Dim xw As Excel.Workbook
Dim xls As Excel.Worksheet
Set exl = New Excel.Application
Set xw = exl.Workbooks.Add
Set xls = xw.Worksheets.Add
xls.Cells(1, 1) = "Hola."
xls.Cells(2, 1) = "Esta es una factura."
xls.Cells(3, 1) = "_____________________________"
xls.Cells(1, 7) = "Factura hecha por:"
xls.Cells(2, 7) = "JDGD"
xw.SaveAs "c:\factura.xls"
exl.Quit
End Sub
Puedes agregar logos, gráficos, lo que quieras.
Un saludo.
Juan
Post by JDGD
Hola grupo, nesecito la siguiente ayuda; tengo que hacer una aplicacion
que
Post by JDGD
imprima en colmnas predeterminadas o formato preimpreso, pero con vb
6.0,
Post by Juan Jose Costello Levien
Post by JDGD
no se como hacerlo, si alguin tiene una rutina que permita imprimir en
fila,
Post by JDGD
columna, y que realice un salto de pagina para alinearse a la factura
siguiente, de antemano se lo agradecere, gracias por todo su aporte y
ayuda...
Saludos Cordiales...
J. David G.
MrIncreible
2005-08-26 14:23:48 UTC
No se podría utilizar un visor de Excel de los que hay gratuitos. No se si
existirá alguno como los que hay para Word.

Adriano
2005-08-26 00:58:09 UTC
Hola David:

Leé la documentación del objeto 'Printer'. Ahí está lo que buscas. Si luego
de leerla tuvieras alguna duda puntual, aquí estamos.

Saludos.
--
...................................
Bruno Adriano Pestoni
"Hecho en Argentina"
Viedma - Río Negro
-----------------------------
Nunca sabremos la verdad...
-----------------------------
Post by JDGD
Hola grupo, nesecito la siguiente ayuda; tengo que hacer una aplicacion que
imprima en colmnas predeterminadas o formato preimpreso, pero con vb 6.0,
no se como hacerlo, si alguin tiene una rutina que permita imprimir en fila,
columna, y que realice un salto de pagina para alinearse a la factura
siguiente, de antemano se lo agradecere, gracias por todo su aporte y
ayuda...
Saludos Cordiales...
J. David G.