[XL-2007] Une macro ouvrant la fenêtre " Imprimer " [Résolu]

[brunounours]

Bonjour,

Je souhaite imprimer un Userform à l'aide d'un bouton.

J'utilise le code suivant:

Code :

1
2
3
Private Sub CommandButton2_Click()
UserFormVerificacion2.PrintForm
End Sub

Mon problème, est qu'il me lance l'impression directement sur l'imprimante par défaut.
Je souhaiterai qu'il m'ouvre la fenêtre "imprimer" pour par exemple pouvoir sélectionner l'imprimante ou éventuellement imprimer un PDF.

Apres mes recherche j'ai essayé cette solution:

Code :

If Application.Dialogs(xlDialogPrinterSetup).Show = True Then UserFormVerificacion2.PrintForm

Ca m'ouvre bien la boite de dialogue pour selectioner l'imprimante, mais quand je choisis n'importe quelle imprimante ca n'effectue pas le changement et continue de l'envoyer sur l'imprimante par defaut initiale.

Auriez vous une alternative?

Par ailleurs j’aimerai aussi pourvoir choisir d’ouvrir un aperçu avant impression avant d’imprimer.
Merci d'avance pour vos réponses.

Bruno.

[jfontaine]

Bonjour,

Et avec le code ci dessous?

Code :

Application.Dialogs(xlDialogPrint).Show

[brunounours]

Merci de ta rèponse mais ce code m'imprime ma feuille et pas mon UserForm.

Autre idèe?

Bruno

[jfontaine]

Quand la fenêtre s'ouvre, choisi une imprimante et sort en cliquant sur Fermer.
Est ce qu'ensuite, l'impression se passe sur la bonne imprimante?

[brunounours]

Marche toujours pas:

avec

Code :

1
2
3
Private Sub CommandButton2_Click()
Application.Dialogs(xlDialogPrint).Show
End Sub

Si je clique sur fermer, rien ne se passe
Si je clique sur ok il imprime ma feuille dans l'imprimante choisie pas l'userform :-(

et avec

Code :

1
2
3
4
5
 
Private Sub CommandButton2_Click()
Application.Dialogs(xlDialogPrint).Show
UserFormVerificacion2.PrintForm
End Sub

Si je clique sur fermer, il imprime l'userform sur l'imprimante par defaut initiale :-(

Si je clique sur OK, il imprime l'userform sur l'imprimante par defaut initiale :-(
et il imprime ma feuille dans l'imprimante choisie pas l'userform :-(

[jfontaine]

Qu'entends tu par la?

et il imprime ma feuille dans l'imprimante choisie pas l'userform :-(

LA userform propose une imprimante par défaut?

[brunounours]

Au lieu d'imprimer l'UserForm (ce que j'ai besoin), il imprime la feuille de calcul.

Mais je peux choisir l'imprimante

[jfontaine]

L'imprimante utilisée par la méthode PrintForm est déterminée par les paramètres du Panneau de configuration du système d'exploitation.

Pour choisir l'imprimante il va falloir manipuler l'imprimante par défaut windows

Pour modifier l'imprimante par défaut il faut utiliser les API

A mettre dans un module (Code API)

Code :

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
28
29
30
31
32
Const HWND_BROADCAST = &HFFFF
Const WM_WININICHANGE = &H1A
Private Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function GetWindowsDirectory Lib "Kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Dim Chemin As String
Dim NC As Long
Dim Ret As String
 
Public StrImprimante As String
 
Sub ChangeImprimanteParDéfaut(Nom As String)
 Chemin = String(260, 0)
 Chemin = Left$(Chemin, GetWindowsDirectory(Chemin, Len(Chemin))) + "\win.ini"
 Ret = String(255, 0)
 NC = GetPrivateProfileString("Devices", Nom, "", Ret, 255, Chemin)
 Ret = Left(Ret, NC)
 WritePrivateProfileString "windows", "device", Nom & "," & Ret, Chemin
 SendMessage HWND_BROADCAST, WM_WININICHANGE, 0, "windows"
End Sub
 
 
Function ImprimanteParDéfaut() As String
 Chemin = String(260, 0)
 Chemin = Left$(Chemin, GetWindowsDirectory(Chemin, Len(Chemin))) + "\win.ini"
 Ret = String(255, 0)
 NC = GetPrivateProfileString("windows", "device", "", Ret, 255, Chemin)
 Ret = Left(Ret, NC)
 NC = InStr(Ret, ",")
 ImprimanteParDéfaut = Left(Ret, NC - 1)
End Function

A utiliser comme suit

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Mémorise l'imprimante par défaut
StrImprimante = ImprimanteParDéfaut
 
'Choix de l'imprimante
Application.Dialogs(xlDialogPrinterSetup).Show
 
'Modification de l'imprimante par défaut
ChangeImprimanteParDéfaut Application.ActivePrinter
 
'Impression de la userform
UserForm1.PrintForm
 
'remise en place de l'imprimante par défaut
ChangeImprimanteParDéfaut StrImprimante

[brunounours]

Merci mais je n'y arrive pas.

Pour le coup je ne comprends pas du tout ce que je fais.

Voila la démarche que j'ai effectuè:

J'ai crèè un nouveau module puis j'ai coller le premier code que tu m'as donnè dedans.

Ensuite dans la commande du click pour l'impression,
j'ai mis le deuxieme code en remplacant

Code :

UserForm1.PrintForm

Code :

UserFormVerificacion2.PrintForm

Pour l'adapter à mon cas.

qd je click sur bon bouton imprimer il me demande bien quelle imprimante je souhaite. Je la selectionne et il me renvoie un message d'éreur: "
Run-time error '484':

Problem getting printer information for the system. Make sure the printer is set up correctly."

Si je clique sur "Debug", il me surligne en jaune "UserFormVerificacion2.PrintForm"

Merci Bruno

[brunounours]

Bonjour le Forum

J'ai un peu avancé.

Pour lancer l'impression, j'utilise une UserForm avec une ComboBox pour choisir l'imprimante.

J'utilise le code suivant:

Code :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Const HWND_BROADCAST = &HFFFF
Const WM_WININICHANGE = &H1A
Private Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function GetWindowsDirectory Lib "Kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Dim Chemin As String
Dim NC As Long
Dim Ret As String
 
 
 
Private Sub CommandButton1_Click()
Imprdef = ComboBox1
ProcédureImPrimanteParDéfaut (Imprdef)
Me.PrintForm
End Sub
 
Private Sub UserForm_Initialize()
'ComboBox1.RowSource = "listeImpr"
ComboBox1.AddItem "PDFCreator"
ComboBox1.AddItem "\\adrfp1\ADRPR_CTS3"
ComboBox1.AddItem "ADRPR_CTS3"
 
'ListBox1 = userformverficacion2.ListBox1
End Sub
 
Private Sub ProcédureImPrimanteParDéfaut(Imprdef)
 'http://www.lesite.net/trucs/imprimante_defaut
 'HP LaserJet 3200 Series PS = Nom de l'imprimante apparaissant
 ' dans la fenêtre " imprimante" du panneau de configuration
  'ChangeImprimanteParDéfaut ("HP LaserJet 3200 Series PS")
   ChangeImprimanteParDéfaut (Imprdef)
  End Sub
 
  Sub ChangeImprimanteParDéfaut(nom As String)
'http://www.lesite.net/trucs/imprimante_defaut
 Chemin = String(260, 0)
 Chemin = Left$(Chemin, GetWindowsDirectory(Chemin, Len(Chemin))) + "\win.ini"
 Ret = String(255, 0)
 NC = GetPrivateProfileString("Devices", nom, "", Ret, 255, Chemin)
 Ret = Left(Ret, NC)
 WritePrivateProfileString "windows", "device", nom & "," & Ret, Chemin
 SendMessage HWND_BROADCAST, WM_WININICHANGE, 0, "windows"
 End Sub

Cette méthode foncionne mais avec reserve.
cela renvoie un autre problème.
Apres mon impression, et après avoir fermé l'UserForm imprimé, aucune de mes macros ne fonctionnent:
si je clique sur un bouton qui lance n'importe quelle Userform, un message d'erreur apparait (cf piece jointe).
Si je clique sur debug il me surligne: UserForm.Show

Je n'ai trouvé d'autre solution que de fermer mon fichier et de le rouvrir: Ce qui est un peu contraignant si je dois le faire après chaque impression.

As-tu une solution?

Cdt Bruno

[brunounours]

J'ai trouvé une solution à ce probleme.

En utilisant le debug pas à pas (touche F8) je me suis rendu compte que le problème ne venait pas du lancement des Userforms mais de leur contenu.

En effet, j'ai simplement eu a rajouter des

Code :

.value

apres chaque

Code :

.additem

qui existait dans mon code des Userforms.

Bruno.