FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
impresion directa?
hola gracias a todos por la ayuda que siempre me prestan.
Si pueden necesito ejemplo o algun linck para poder relizar impresiones directas desde un conjunto de datos consultados en una base de datos o desde un memo. Mucha gracias a todos
__________________
tu mente es tu mas presiado tesoro, cultiva tu conocimiento |
#2
|
||||
|
||||
En la ayuda de Delphi, hay un topico llamado TPrinter y en él hay un label que dice Using TPrinter, el cual te explica como usar sus metodos BeginDoc, EndDoc y como escribir por medio de su Canvas la impresión que necesitas, todo eso lo puedes adaptar a tu necesidad, ya sea para la del conjunto de datos o la del Memo.
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#3
|
||||
|
||||
Otra opción tal vez más directa sea que en lugar de usar un TMemo (como comentas) uses un TRichEdit (propiedad PlainText = True), en ese caso el comportamiento será muy similar al TMemo, con la diferencia de que un TRichEdit tiene el método Print, que te imprimirá el contenido del control.
En este caso no deberás hacer nada más que llamar al método Print.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#4
|
||||
|
||||
gracias
con sus respuestas me han aclarado el panorama.
muchas gracias por todo
__________________
tu mente es tu mas presiado tesoro, cultiva tu conocimiento |
#5
|
|||
|
|||
Impresion Directa
Mejor que este procedimiento no pude encontrar
Pruebalo !!! Colocas un objeto excel y listo procedure TFlis_comprob.manda_xls; var Rango:Excel2000.Range; I, row:integer; bookmark:tbookmarkstr; begin Excelapplication1.Visible[0]:=true; Excelapplication1.Workbooks.Add(null,0); Rango:=Excelapplication1.ActiveCell; for i:=0 to Qcon_det.FieldCount-1 do begin rango.Value:=Qcon_det.Fields[i].DisplayLabel; rango:=rango.Next; end; Qcon_det.DisableControls; bookmark:=Qcon_det.Bookmark; Qcon_det.First; row:=2; while not Qcon_det.Eof do begin rango:=Excelapplication1.Range['A'+Inttostr(row),'A'+inttostr(row)]; for i:=0 to Qcon_det.FieldCount-1 do begin rango.Value:=Qcon_det.Fields[i].AsString; rango:=rango.Next; end; Qcon_det.Next; inc(row); end; Qcon_det.EnableControls; rango:=Excelapplication1.Range['a1','e'+inttostr(row-1)]; rango.AutoFormat(1,null,null,null,null,null,null); end; Y para que funciones yo hago!! QCon_det.Close; QCon_det.SQL.Clear; QCon_det.SQL.Add(Consul2); QCon_det.Open; if wdatxls.Checked then manda_xls else QRmayor.Preview; y funciona excelentemente |
#6
|
|||
|
|||
Impresion directa
Perdon me equivoquede rutina pra enviar a excel los datos del query. Aqui t va la rutina para impresion directa
procedure TFpto_pollo.imprime_fac(stdoc, stipo:shortstring;sndoc:integer); Var MyPrinter: TextFile; xcan, xdes, xval, xtot, xpag, xcam:shortstring; xsum:real; begin AssignFILE(MyPrinter,'LPT1'); ReWrite(MyPrinter); Write(MyPrinter, CHR(27) + CHR(64)); // Inicializar Impresora //Write(MyPrinter, CHR(27)+CHR(67)+CHR(44)); // Fijar Tamaño en Lineas Write(MyPrinter,CHR(27)+ CHR(103)); // Tipo de Letra Chicas //Write(MyPrinter,CHR(27)+CHR(197)); // Negrita //Write(MyPrinter,CHR(27)+CHR(179)+CHR(28)); // Espacio entre Lines if stipo='FAC' then Writeln(MyPrinter,'MICROMARKET VIA RAPIDA') else Writeln(MyPrinter,'POLLOS ROSS'); if stipo='FAC' then Writeln(MyPrinter,'AV.ROQUE AGUILERA ESQ.RADIAL CASTILLA') else Writeln(MyPrinter,'AV.SANTOS DUMONT CASI 4TO ANILLO'); if stipo='FAC' then Writeln(MyPrinter,'NIT 2642735017 TELF.3513621') else Writeln(MyPrinter,'NO ES FACTURA TELF.3533417'); if stipo='FAC' then Writeln(MyPrinter,'FACTURA : '+wnrofac.text+' ALFAB.'+walfab.text); if stipo='FAC' then Writeln(MyPrinter,'NR.ORDEN:'+wnorden.text+' FECHA:'+datetostr(now)); if wnomfac.Text<>'' then Writeln(MyPrinter,'Senores : '+wnomfac.text) else Writeln(MyPrinter,'Senores : Clientes Varios'); //---------------------------- if wnit.Text<>'' then Writeln(MyPrinter,'NIT : '+wnit.text) else Writeln(MyPrinter,'PARA SERVIRSE EN :'+tbl_gloprod.fieldbyname('refer').asstring); //------------------------------ tbl_gloprod.Locate('tdoc;ndoc',VarArrayOf([stdoc,sndoc]),[loCaseinsensitive]); //loCaseInsensitive Writeln(MyPrinter,'-------------------------------------'); Writeln(MyPrinter,' Cant. Producto Valor '); Writeln(MyPrinter,'-------------------------------------'); xsum:=0; tbl_movpro.Locate('tdoc;ndoc',VarArrayOf([stdoc,sndoc]),[loCaseinsensitive]); //loCaseInsensitive while not tbl_movpro.Eof and (tbl_movpro.FieldByName('tdoc').AsString=stdoc) and (tbl_movpro.FieldByName('ndoc').AsInteger=sndoc) do begin xcan:=format('%6.2f',[tbl_movpro.fieldbyname('cant').asfloat]); xdes:=copy(tbl_movpro.fieldbyname('descri').AsString,1,20); xval:=format('%8.2f',[tbl_movpro.fieldbyname('valor_bs').asfloat]); xsum:=xsum+tbl_movpro.fieldbyname('valor_bs').asfloat; Writeln(MyPrinter,xcan+' '+xdes+' '+xval); tbl_movpro.Next; end; Writeln(MyPrinter,'-------------------------------------'); xtot:=format('%8.2f',[xsum]); xpag:=format('%8.2f',[strtofloat(wpagbs.text)]); xcam:=format('%8.2f',[strtofloat(wcamb.text)]); Writeln(MyPrinter,' Total Facturado : '+xtot); Writeln(MyPrinter,' Total Pagado : '+xpag); Writeln(MyPrinter,' Cambio : '+xcam); Writeln(MyPrinter,'-------------------------------------'); if stipo='FAC' then Writeln(MyPrinter,'MICROMARKET VIA RAPIDA LE AGRADECE') else Writeln(MyPrinter,'POLLOS ROSS LE AGRADECE'); Writeln(MyPrinter,'POR SU PREFERENCIA '+stdoc+'-'+inttostr(sndoc)); Writeln(MyPrinter,''); Writeln(MyPrinter,''); Writeln(MyPrinter,''); Writeln(MyPrinter,''); Writeln(MyPrinter,''); Writeln(MyPrinter,''); Writeln(MyPrinter,''); Writeln(MyPrinter,''); Writeln(MyPrinter,''); //Write(MyPrinter,#12); // Expulsar la Hoja System.CloseFile(MyPrinter); end; Y funciona re bien |
#7
|
||||
|
||||
ya gracias
No te preocupes por la equivocacion, voya ver tambien el procedimiento de envio a excel a ver como me va, aunque aun no lo he necesitado pero no se sabe cuando se requiera....
gracia a todos
__________________
tu mente es tu mas presiado tesoro, cultiva tu conocimiento |
#8
|
|||
|
|||
Cita:
pero por esas casualidades para colocarlo en las cordenadas X e Y como se hace??? me dijeron que es con el modo grafico de la impresora pero no logro dar con la tecla |
#9
|
|||
|
|||
hmmmmm
y si quisiera que el detalle te salga ordenado ...es decir
cant. Descripcion Precio 1 Producto1 12.00 2 Producto2 15.00 se puede ??, el codigo anterior funciona perfecto peor el ordden del detalle no es estetico. Me quiero volver changos hasta en el mensaje me salio desordenado el reporte Última edición por nelostanley fecha: 19-09-2008 a las 16:13:46. |
#10
|
|||
|
|||
Cita:
Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney |
#11
|
|||
|
|||
Orden de los productos
si puedes hacerlo. basta que le des el orden en la base de datos.
por ejm. si estas usando SQL server, puedes crear un campo de correlatividad en base al cual te imprima el listado. |
#12
|
|||
|
|||
Cita:
Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Ayunda con impresión directa | jcheco | Impresión | 2 | 25-08-2006 11:57:31 |
Impresion Directa | berna | Impresión | 3 | 07-04-2005 17:29:22 |
impresion directa a impresora | e_god | Impresión | 2 | 12-01-2005 20:14:43 |
Impresión directa en puerto COM | altp | Impresión | 10 | 22-05-2004 17:26:03 |
Impresión directa en EPSON | guillotmarc | Impresión | 6 | 03-09-2003 10:50:00 |
|