FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Segunda impresión me imprime en blanco
Un saludo a todos los fanáticos del delphi
Mi problema es el siguiente: He realizado una aplicación que permite crear presupuestos. Cuando imprimo uno no hay problema. Después de imprimirlo y sin salir del formulario quiero que me ofrezca la posibilidad de que me permita imprimir si se han cambiado los datos. El problema es que me imprime en blanco porque no me coge los parámetros de impresión. Es decir que no lee el fichero de texto .ini que indica las coordenadas donde deben imprimirse cada una de las líneas. (Creo que ese es el problema puesto que devuelve una hoja en blanco) ¿Cuál puede ser el problema? Gracias |
#2
|
||||
|
||||
Te sugiero que nos des unos algunos datos más como por ejemplo:
versión delphi reporteador nombre y versión componentes, etc. una explicación más detallada de lo que estas haciendo.
__________________
Manuel Muñoz L. Trabajando con delphi 7.0 , migrando sistema a Delphi XE8, matando BDE y pasando FIREDAC. |
#3
|
|||
|
|||
Versión : Delphi 5
No imprimo a través de ningún Report. Componentes?? Estándares El procedimiento es el siguiente: begin LlenarFIni; //recojo los datos del fichero de texto FMenu.IMP.PrimeraLinea:=PrimeraLinea; //Aqui empieza la impresion FMenu.IMP.UltimaLinea:=UltimaLinea; //Fin de pagina FMenu.IMP.EntreLineas:=EntreLineas; //Distancia entre líneas if not error then begin try Printer.Orientation:=poPortrait; Printer.BeginDoc; BD.Tpresupuestos.close; BD.TPresupuestos.open; ...... ...... FMenu.Imp.Texto(ccli,fcli,'Cliente'); //por ejemplo ..... ..... IMPRIMO DIRECTAMENTE SOBRE EL CANVAS DE LA IMPRESORA procedure TImpresion.Texto(x,y:real;c:string); begin Printer.Canvas.TextOut(LocX(x),LocY(y),c); end; function TImpresion.LocX(x:real):longint; begin LocX:=Round(x*(ancho/horiz)*10); end; function TImpresion.LocY(y:real):longint; begin LocY:=Round(y*(largo/vert)*10); end; procedure TImpresion.Texto(x,y:real;c:string); begin Printer.Canvas.TextOut(LocX(x),LocY(y),c); end; |
#4
|
||||
|
||||
En vez de hacer un BD.TPresupuestos.Close/Open haz solo un BD.Tpresupuestos.First. Suerte.
Fede
__________________
De lo que hay no falta nada!!! |
#5
|
||||
|
||||
no veo el EndDoc.
__________________
Manuel Muñoz L. Trabajando con delphi 7.0 , migrando sistema a Delphi XE8, matando BDE y pasando FIREDAC. |
#6
|
|||
|
|||
Ya he solucionado el problema. La solución era otra. Gracias encarecidamente por vuestra ayuda Feliz navidad a todos |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
El Rbuilder me imprime en blanco y como algún boton del preview | ssentoo | Impresión | 0 | 18-09-2006 14:28:53 |
Solo imprime Labels, No imprime QRDBText | miquellg | Impresión | 1 | 14-07-2006 21:39:46 |
Reporte imprime no imprime sale en Blanco | Alexander | Impresión | 0 | 22-08-2005 16:09:47 |
Impresion Hoja en Blanco | Morphine | Impresión | 1 | 23-03-2005 21:58:36 |
Quick Report, se imprime en blanco | victork_py | Impresión | 4 | 10-12-2003 12:46:38 |
|