Impression sous delphi

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:

---

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:

---

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:

---

1 2 3 4 5 6

bp := form7.GetFormImage; Printer.BeginDoc; Application.ProcessMessages; Printer.Canvas.Draw(0,0,bp); Printer.EndDoc;

---

bonjour,

L'aide delphi (en français) dit

Citation:

---

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:

---

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;

---

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 ?????

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

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.