Discussion :

[paolo2002]

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;

[ouldfella]

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

[Droïde Système7]

Bonjour,

Et pourquoi que le Ducroc, il se...

[Jipété]

Yep !

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

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 :

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

poPrintToFile

On doit aussi pouvoir jouer là-dessus ?

Mes 2 cts,
JP