Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Al correr en otro PC cambia mi tamaño de página (https://www.clubdelphi.com/foros/showthread.php?t=82400)

lobosito 03-03-2013 22:46:23

Al correr en otro PC cambia mi tamaño de página
 
Buenas a los foreros, mi problema es el siguiente:
Tengo una aplicación el Delphi 7 con bd paradox y formulario con QReport por defecto.
Lo que sucede es que al correr la aplicación en otra computadora sin Delphi (ya corre con todo y BDE), cuando mando a imprimir me doy cuenta que mi formulario (que tenía un tamaño específico para los reportes), ahora se ve en tamaño carta o A4.
Como puedo solucionar este problema...
Agradezco la ayuda ya que tengo que presentar el programa como muestra de mi trabajo en Delphi para una empresa...

Edito:
Por favor por un error de dedo pulsé enter antes de ingresar este mensaje, solicito al moderador elimine el otro para evitar problemas....gracias

ecfisa 04-03-2013 00:56:49

Hola lobosito.

No puedo asegurar que la sugerencia funcione ya que lo que comentas no me ha pasado nunca. Pero proba configurando la propiedad PageSize del TQuickRep al inicio, por ejemplo:
Código Delphi [-]
...
uses QRPrntr; // necesario por TQRPaperSize 

procedure TForm.FormCreate(Sender: TObject); // form del TQuickRep
begin
  QuickRep1.Page.PaperSize := Legal; // (El tipo de hoja que desees)
  ...
end;

Los distintos tamaños de hojas están definidos en el tipo enumerativo TQRPaperSize:
Código Delphi [-]
TQRPaperSize = (Default, Letter, LetterSmall, Tabloid, Ledger, Legal, Statement,
                Executive, A3, A4, A4Small, A5, B4, B5, Folio, Quarto, qr10X14,
                qr11X17, Note, Env9, Env10, Env11, Env12, Env14, CSheet, DSheet,
                ESheet, International, Custom);

Saludos.

lobosito 04-03-2013 01:43:11

Gracias...
 
Muy agradecido, tu consejo me ayudó a darme cuenta como solucionar mi problema de esta forma:

Código Delphi [-]
procedure TForm3.FormCreate(Sender: TObject);
begin
   QuickRep1.Page.Length:=150; // Alto
   QuickRep1.Page.Width:=120; // Ancho
end;

Además, por si acaso el problema se dio en primer lugar porque no tenía ninguna impresora instalada, ojo y ojalá les sirva el descubrimiento.


La franja horaria es GMT +2. Ahora son las 15:27:08.

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