Discussion :

[Abac_Angelique]

Bonjour,

Je vous explique mon souci.
J'essai de faire une impression d'images en cascade.
Sous Windows XP, je récupérais l'ensemble des images que je mettais dans un dossier temporaire et une fois la boucle finie, j'ouvrais la dernière image dans l'aperçu des télécopie windows.
L'utilisateur n'avait plus qu'a suivre l'assistant et à sélectionner toutes les images du dossier.
Sous Windows 7, l'aperçu des télécopies Windows ne fonctionnait plus de la même façon donc j'ai fais une boucle qui demande l'impression image par image via le code suivant :

Code :

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

if ShellExecute(Handle, 'print', PAnsiChar(chemin), '','', SW_HIDE) <= 32 then ShowMessage(SysErrorMessage(GetLastError));

Ce code ouvre donc l'aperçu des télécopies windows pour chaque image et l'utilisateur doit cliquer sur imprimer.

Mon problème que lorsque le nombre d'image est important.
Il peut y avoir jusqu'à 100-150 images à imprimer et dans ce cas au bout de quelques images l'utilisateur n'ayant pas le temps de cliquer sur chaque bouton imprimer l'application sature.

Est ce qu'il existe un moyen de pouvoir lancer la fonction imprimer directement sans passer par l' assistant ?

Je m'étais dit que peut être en passant par Paint je n'aurais pas le souci mais je n'arrive pas a définir Paint comme étant le programme d'impression par défaut pour mon application et si je met Paint comme étant le programme par défaut pour ouvrir les images alors le shellexecute (...'open'...) ne fonctionne plus sur les fichiers image.
As-t-on un moyen de faire cela ?

Merci pour votre aide

[Paul TOTH]

et bien il suffit d'utiliser la fontion Printer de l'unité Printers qui retourne un objet TPrinter qui possède un Canvas

voici un exemple pour un TImage, mais ça peut se faire avec un TBitmap, un TJPEGImage, etc...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
uses 
  Printers; 
 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  ScaleX, ScaleY: Integer; 
  RR: TRect; 
begin 
  with Printer do 
  begin 
    BeginDoc; 
    try 
      ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch; 
      ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch; 
      RR := Rect(0, 0, Image1.picture.Width * scaleX, Image1.Picture.Height * ScaleY); 
      Canvas.StretchDraw(RR, Image1.Picture.Graphic); 
    finally 
      EndDoc;   //Methode EndDoc beendet den aktuellen Druckauftrag und schließt die 
    end; 
  end; 
end;

[cincap]

Bonjour à toutes et à tous,

@ Abac_Angelique, je pensais que l'aperçu Windows, reprenait toutes les images contenues dans le dossier et un seul click sur "Print" imprimait tout le dossier !

Il faut peut être les sélectionnées ?

@+,

Cincap

[Abac_Angelique]

oui sous XP, l'aperçu permettait d'imprimer l'intégralité des images contenues dans un dossier donc c'était facile.

Mais sous Seven c'est différent il imprime image par image.

Merci Paul TOHT je vais essayer d'implémenter la procédure sachant que le type d'image peut varier en fonction de ce que l'utilisateur aura rattaché à la fiche (BMP, JPG, TIF...) et qu'il faut que les proportions des images soient conservées.