Voila mon probleme
J'essaie d'imprimer une form.
Je suis allé voir des tutoriaux pour imprimer une form en l'enregistrant sous un format Bitmap, mais quand j'imprime la page est blanche
Voici mon code
Merci a tous ceux qui voudrons bien me repondre
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 procedure TForm1.Button2Click(Sender: TObject); var bp : Tbitmap; begin bp:=Tbitmap.Create; bp:=form1.GetFormImage; With printer do begin Printer.BeginDoc; Printer.Canvas.Draw(15,15,bp); Printer.EndDoc; end; bp.Free end;
_________________
Balises CODE rajoutées par Sub0
Partager