Discussion :

[ChPr]

Bonjour à toutes et à tous,

Voici un petit programme dont le but est d'imprimer le contenu d'un TForm.

• Vous placez un composant PrinterSetupDialog sur le Form (pour avoir une imprimante réelle)
• Vous placez un bouton sur la Form,
• Dans son événement Click, vous placez le code ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, PrintersDlgs, Forms, Controls, Graphics, Dialogs,
  StdCtrls, Printers;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Imprimer: TButton;
    PrinterSetupDialog1: TPrinterSetupDialog;
    procedure ImprimerClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.ImprimerClick(Sender: TObject);
begin
  Printer.BeginDoc;
  with Printer.Canvas do
  begin
    CopyMode:= cmSrcCopy;
    CopyRect(Rect(30, 30, 600, 600), GetFormImage.Canvas, Rect(0, 0, Width, Height));
    Brush.Style:= bsClear;
    Pen.Width:= 3;
    Rectangle(0, 0, 200, 50);    {Tracé d'un rectangle}
  end;
  printer.EndDoc;
end;
 
end.

• Sous Windows, le contenu de la form est imprimé ainsi que le rectangle(0, 0, 200, 50) qui lui, est tracé directement sur le canvas du Printer.
• Sous Linux, seul le rectangle est imprimé.

Comment faites-vous pour imprimer le contenu d'une Form sous Linux ?

Merci de votre aide.

Pierre

[Jipété]

Yop !

Comment faites-vous pour imprimer le contenu d'une Form sous Linux ?

En lisant cette discussion, peut-être ?

[ChPr]

... En lisant cette discussion, peut-être ?

Je me suis basé sur cette discussion pour arriver à imprimer sous Windows, mais cette solution ne fonctionne malheureusement pas sous Lazarus.

Je me demande bien ce qu'il faut faire. J'ai l'impression que c'est l'instruction Printer.Canvas.CopyRect(...) qui ne fonctionne pas.

A ceux qui ont réussi ...

Cordialement.

Pierre

[ChPr]

... Je me demande bien ce qu'il faut faire. J'ai l'impression que c'est l'instruction Printer.Canvas.CopyRect(...) qui ne fonctionne pas. ...

Bon, ben ,je crois que cette dernière intuition était la bonne. J'ai simplement remplacé dans le code l'instruction CopyRect par StretchDraw et ... ça marche sans problème sous Linux et sous Windows.

Dans le code que je donnais au début de cette discussion et en donnant des bonnes valeurs de dimensions, avec "k" le rapport de nombre de pixels par inch de l'écran et de l'imprimante, ça donne :

Code :

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

    StretchDraw(Rect(0, 0, k*GetFormImage.Width, k*GetFormImage.Height), GetFormImage);

au lieu de :

Code :

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

    CopyRect(Rect(0, 0, k*GetFormImage.Width, k*GetFormImage.Height), GetFormImage), GetFormImage.Canvas, Rect(0, 0, GetFormImage.Width, GetFormImage.Height), GetFormImage));

Cordialement.

Pierre