probleme d'impression sous Delphi6

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:

---

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;

---

je ne sais pas si cela va fonctionner sur votre machine mais essayez le :
-----
procedure Tform1.imprimer;
begin
With Printer do
begin
title:='titre du document'; // ajouter cette ligne avant beginDoc
BeginDoc;
canvas.Draw(0,0,form1.Image1.Picture.Graphic);
EndDoc;
end;
end;
--------
bon courage

Bonjour,

Et pourquoi que le Ducroc, il se... ;)

Yep !

Sans vouloir médire, je pense que vous êtes probablement à côté de la plaque : l'auteur se plaint d'un message

Citation:

---

PRINT TO FILE me demandant d'entrer un OutPut Name

---

J'en conclus que la case à cocher « Imprimer dans un fichier » doit être cochée dans la boîte de dialogue d'impression, et que c'est ça qu'il faut vérifier en premier, et sans doute décocher.

Par programmation, le composant PrintDialog propose l'option

Code:

---

poPrintToFile

---

On doit aussi pouvoir jouer là-dessus ?

Mes 2 cts,
JP