Discussion :

[vodasan]

Bonjour,

je cherche à imprimer la form active. J'utilisais form.print; seulement la form est pas imprimer entierement, d'ou mon idée de l'imprimer en paysage. Donc apres recherche sur la faq et google, j'ai ecris ce code mais il me crée une erreur avec gdi32.dll

mon code :

Code :

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

1
2
3
4
5
6
7
8
var
printers : TPrinter;
begin
  printers.Orientation := poLandScape;
  printers.BeginDoc;
  printers.Canvas.Draw(15,15, form.GetFormImage);
  printers.EndDoc;
end;

merci


j'ai aussi essayé ca :

Code :

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

1
2
3
4
5
6
7
 Application.ProcessMessages;
 
  bp:=form7.GetFormImage;
  Printer.BeginDoc; 
  Printer.Canvas.Draw(15,15,bp); 
  Printer.EndDoc; 
  bp.Free;

en m'insiprant du poste : ici

y a du mieu plus de message d'erreur mais la page imprimée est blanche

Code :

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

1
2
3
4
5
6
 
  bp := form7.GetFormImage;
  Printer.BeginDoc;
  Application.ProcessMessages;
  Printer.Canvas.Draw(0,0,bp);
  Printer.EndDoc;

[Tardiff Jean-François]

bonjour,

L'aide delphi (en français) dit

Renvoie une instance globale de TPrinter pour gérer l'interaction avec l'imprimante.

Unité

QPrinters

Catégorie

gestion de l'imprimante

Syntaxe Delphi :

functionPrinter:TPrinter;

Par conséquence Printer est déjà directement accessible.
Vous pouvez essayer

Code :

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

1
2
3
4
5
6
7
8
9
10
 
// var
// printers : TPrinter; Printer esxiste déja, je ne le redefini pas
//                          De toute manière si je le définissait içi il faudrait le renseigner
begin
  printers.Orientation := poLandScape;
  printers.BeginDoc;
  printers.Canvas.Draw(15,15, form.GetFormImage);
  printers.EndDoc;
end;

[vodasan]

Merci pour ta réponse, j'ai testé ton code mais ca ne marche pas il imprime toujours une page blanche. Ca pourrait venir de delphi ou la config de mon ordinateur ?????

[Linkin]

As-tu essayé de sauver ton bitmap? (SaveToFile) pour vérifier que ce ne soit pas lui qui soit vide.

[Tardiff Jean-François]

Au Pire, regarder dans l'unité "Form" comment "print" est implémenter et dupliquer le code ("procedure TCustomForm.Print;").

Se sera sans doute plus facile de simplement changer l'orientation dans un code qui fonctionne que de refait un nouveau code.