bonjour tout le monde.
A travers les divers tutoriels j'ai fait un code simple qui devrai simplement me reconnaitre l'imprimante active puis m'imprimer un bitmap d'une TImage.
Mais apres la detection de l'imprimante(bonne) j'obtiens une boite de message titree: PRINT TO FILE me demandant d'entrer un OutPut Name, je ne comprends pas bien ce message ,surtout que lorsque je rentre un nom quelconque rien ne se passe.

Quelqu'un a une idee?

voici ce que j'ai :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
procedure Tform1.imprimer;
begin
With Printer do
begin
BeginDoc;
canvas.Draw(0,0,form1.Image1.Picture.Graphic);
EndDoc;
end;
end;