Foros Club Delphi - ampliar visíon del ancho del TQRPreview

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - ampliar visíon del ancho del TQRPreview (https://www.clubdelphi.com/foros/showthread.php?t=3732)

ampliar visíon del ancho del TQRPreview

Hola foro:

Hago una vista preliminar de un informe usando del TQRPreview.

El problema es que no logro ver un reporte ancho totalmente. Que propiedad cambio para lograr esto.

Gracias de antemano

te refieres a que defines un report (en diseño) en A3 y lo visualizas (en ejecución) en A4 por ejemplo? si es así es que la impresira que tienes seleccionada por defecto no admite papel A3

Solución: create un archivo INI donde guardar la impresora de A3 y, antes de lanzar el listado, asigna esta impresora

Código:

// ejemplo de llamada

Report.PrinterSettings.PrinterIndex := GetImpresora('A3');



// función

function TBaseLlistatL.GetImpresora(Impresora: string) : integer;

var

  Ini : TIniFile;

  Imp : string;

  i : integer;

begin

  if FileExists(PrintersIni) then

  begin

    Ini := TIniFile.Create(PrintersIni);

    Imp := Ini.ReadString('IMPRESORAS', Impresora, '');

    Ini.Free;

  end;



  if Imp = '' then

    Result := -1

  else

  begin

    for i := 0 to Printer.Printers.Count - 1 do

      if Pos(Imp, Printer.Printers[i]) <> 0 then Break;

    Result := i;

  end;

end;

Espero te sirva

Creo que me explique mal.

Antes de imprimir uso el componente TQRPreview para ver una vista preliminar del reporte antes de mandarlo a imprimir.

El informe imprime bien en papel y al ancho que necesito. Lo que ocurre es que al desplegar la vista preliminar, por pantalla, no me muestra todos los campos del informe en particular los que están más a la derecha del mismo.

Mi pregunta es como hacer para ver estos campos en la vista preliminar que da el TQRPreview de QuickReport que se utiliza para este propósito, pues solo me da hasta determinado ancho?