Discussion :

[Invité]

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

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;

Merci a tous ceux qui voudrons bien me repondre
_________________
Balises CODE rajoutées par Sub0

[Pierre Castelain]

Si mes souvenirs sont bons, il faut ajouter un Application.ProcessMessages juste avant de récupérer l'image de la fenêtre afin d'être certain que tous les composants ont bien été tracés.

[Smortex]

Je trouves bizare que ça ne genère pas d'erreur ! A ta place, je metterai :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Button2Click(Sender: TObject); 
var
  bp : Tbitmap; 
begin 
  bp:=form1.GetFormImage; 
  Printer.BeginDoc; 
  Printer.Canvas.Draw(15,15,bp); 
  Printer.EndDoc; 
  bp.Free 
end;

[Invité]

Ca marche avec Application.processMessage mais juste avant d'imprimer
Printer.canvas.draw(...). Merci, la fiche apparrait en tout petit mais je vais essayer Printer.canvas.stretchdraw(...). Je laisserai un message si ca marche.

[Invité]

Ok ça marche
Printer.Canvas.StretchDraw(rect,bp);
avec
ect.top:=15;
rect.left:=15; rect.right:=Printer.pageWidth-15; rect.bottom:=Printer.pageHeight-15;

Merci a tous les deux

[Smortex]

Au fait, a tu modifié ton

Code :

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

1
2
3
4
5
6
7
 
With printer do 
begin 
  Printer.BeginDoc; 
  Printer.Canvas.Draw(15,15,bp); 
  Printer.EndDoc; 
end;

par

Code :

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

1
2
3
4
5
6
7
 
With printer do 
begin 
  BeginDoc; 
  Canvas.Draw(15,15,bp); 
  EndDoc; 
end;

Sinon, ça sert à rien de mettre le with !!

Bon développement !

[Invité]

Le with c'est pour eviter de mettre de Printer a chaque fois, je savais pas
Tu sais je suis debutant en prog c'est ma premiere année en bts info
Merci de me montrer les erreurs que je fais