Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Me cambia la posición del papel (https://www.clubdelphi.com/foros/showthread.php?t=14430)

kokoyweb 20-09-2004 20:41:42

Me cambia la posición del papel
 
Hola Foro, gracias por detenerse a leer mi problema. es el siguiente:

Tengo una aplicación, la cual imprime credenciales, en el evento de imprimir, habro primero una forma donde meto la foto y otros datos, e imprimo y seguido me habre otra forma y me imprime otros datos (es decir volteo la credencial para que se imprima al reverso).

El problema esta en que al momento de imprimir la segunda credencial me cambia la posición del papel. pero del quickreport, es decir yo lo tengo configurado tipo PoPortrait y me lo cambia a LandScape.

Este es mi codigo:

with frmOculta do
begin
QRImage1.Picture.Bitmap.Assign(Image1.Picture.Bitmap);
QRLabel1.Caption:=EdNombres.Text;
QRLabel2.Caption:=EdApellidoPaterno.Text;
QRLabel3.Caption:=EdApellidoMaterno.Text;
QRLabel5.Caption:='31/DIC/2005';
QuickRep1.PreviewModal;
end;
MessageDlg ('Después de imprimir la parte frontal de la credencial,'+#13+
'de vuelta a la misma, e imprima la parte trasera', mtInformation, [mbok], 0);
with frmOculta2 do
begin
QuickRep2.Refresh;
QRLabel1.Caption:=EdCurp.Text;
QRLabel2.Caption:=EdNoSS.Text;
QRLabel3.Caption:=Label1.Caption;
QRLabel4.Caption:=Label2.Caption;
QuickRep2.PreviewModal;
end;


Alguna sugerencia:
Gracias por su tiempo y su ayuda


La franja horaria es GMT +2. Ahora son las 18:27:54.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi