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 :
merci
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;
j'ai aussi essayé ca :
en m'insiprant du poste : ici
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;
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;
Partager