Discussion :

[Invité]

Bonjour,

dans LazReport, je définis une page en A4 paysage. Le Preview est correct alors que l'imprimante par défaut est définie en mode Portrait... La page une fois mal imprimée, le Preview se corrige et apparaît en mode Portrait conforme à l'édition...

A partir de LazReport y a-t-il un moyen de faire automatiquement (et si possible temporairement) correspondre l'orientation de l'imprimante à celle de la page imprimée (définie dans le .lfr) ?

Pour être plus précis, un code de ce type fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
procedure TFormSynthVue.btPRINTClick(Sender : TObject);
var
  aPrinterOrientation : TPrinterOrientation;
begin
 if PrintDialog1.Execute then begin
  aPrinterOrientation := Printer.Orientation;
  Printer.Orientation := frReport1.Pages[0].Orientation;
  frReport1.ShowReport;
  if aPrinterOrientation <> Printer.Orientation then
   Printer.Orientation := aPrinterOrientation;
 end;
end;

Mais il est en dehors de frReport1. Dans quel évènement de celui-ci pourrait-il être inclus ?
le code suivant est inefficace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var aPrinterOrientation : TPrintOrientation;
[...]
procedure TFormSynthVue.frReport1BeginDoc;
begin
 aPrinterOrientation := Printer.Orientation;
 Printer.Orientation := frReport1.Pages[0].Orientation;
end;
 
procedure TFormSynthVue.frReport1EndDoc;
begin
 if aPrinterOrientation <> Printer.Orientation then
  Printer.Orientation := aPrinterOrientation;
end;

Merci.
Cordialement. Gilles

[Ph. B.]

Bonjour,

L'orientation peut varier d'une page à l'autre. A votre place, je contrôlerais plutôt la conformité de l'orientation non pas dans l'évènement OnBeginDoc mais dans l'évènement OnBeginPage :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TFormSynthVue.frReport1BeginPage(pgNo: Integer);
begin
  if Printer.Orientation <> frReport1.Pages[pgNo].Orientation then
    Printer.Orientation := frReport1.Pages[pgNo].Orientation;
end;

Cela étant, ces évènements sont appelés pendant la phase de préparation du rapport et pas son impression réelle, aussi je ne pense pas que cela ait un quelconque effet... (Je n'ai pas d'imprimante pour le vérifier)
Il faudrait plutôt tracer le code de LazReport et voir ce qui est fait pendant la phase d'impression.
--
Philippe.