Discussion :

[gek_70]

Bonjour à tous,

Voilà mon problème, j'ai une petite macro de visualisation de photos et j'ai voulu y ajouter un bouton impression qui idéalement renverai vers l'assistant d'impression de photo Window (XP Sp3), j'ai trouver ce code :

Code :

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

1
2
3
4
5
6
7
Private Sub cmdPrint_Click()
 
Dim n As Long
Dim SelectedFile As String
n = Shell("rundll32.exe shimgvw.dll,ImageView_Fullscreen " & SelectedFile)
 
End Sub

Avec ça j'arrive à mes fins , mais en passant l' Aperçu des images et des télécopies Windows et en recliquant une 2ème fois sur le bouton imprimer.

Donc j'ai essayé ça:

Code :

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

1
2
 
n = Shell("rundll32.exe shimgvw.dll,ImageView_PrintToW " & SelectedFile)

mais aucun resultat, ou encore la dll photoWiz avec la fonction UsePPWForPrintTo mais toujours auncun résultat.

J'espere avoir bien exposer mon problème

et remercie par avance tous ceux qui pouront m'aider.

[l_autodidacte]

Un autre moyen pour y parvenir :
Dans ton projet ajoute une référence à Shell32.dll (Projet=>références => parcourir jusqu'à Shell32.dll)
Ajoute aussi le composant Microsoft Common Dialog Control 6.0 (COMDLG32.OCX) et en place un sur la Form. Renomme-le en CmDlg.
Ajoute également un bouton CommandButton Nommé cmdPrint.
Copie le code suivant dans l'éditeur de Form1 :

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
23
24
25
26
27
Option Explicit
 
Private Sub cmdPrint_Click()
 
Dim n As Long, objFolder   As Shell32.Folder, SHL As New Shell32.Shell
Dim srcDir As String, colItems, objItem, fName$, fTitle$
 
CmDlg.ShowOpen
fName = CmDlg.FileName
fTitle = CmDlg.FileTitle
If fName = "" Then Exit Sub
srcDir = Left$(fName, Len(fName) - Len(fTitle))
n = Shell("rundll32.exe shimgvw.dll,ImageView_Fullscreen " & fName)
MsgBox srcDir ' pour arrêter l'exécution jusqu'à ce qu'on ferme l'aprçu rapide
Set objFolder = SHL.Namespace(srcDir)
 Set colItems = objFolder.Items
  For Each objItem In colItems
    If UCase$(objItem.Name) = UCase$(fTitle) Then
       objItem.InvokeVerbEx ("Print")
       Exit For
    End If
  Next
End Sub
 
Private Sub Form_Load()
  CmDlg.Filter = "Tout fichier image|*.bmp;*.jpg;*.tif;*.gif;*.tiff;*.tga;*.pcx|" ' On peut rajouter d'autres
End Sub

[gek_70]

Merci à toi l'autodidacte, ça fonctionne

J'ai juste à enlever le commonDialog, car au moment ou je clique sur Imprimer dans mon programme je connais déjà le chemin de ma photo (mais bon, en meme temps j'avais oublié de le préciser).

Et je tiens en même temps à resignaler (parce ça à surement déjà été fais) le tuto de J M Rabilloud "Utiliser les Fonctions de l'API en VB"

http://vb.developpez.com/bidou/vb-api/

Il est trés bien conçu pour les novices comme moi qui veulent utiliser les API, donc je le conseil.