W
Whooki
Guest
Bonjour à tous.
Sur ma page je dispose d'un bouton 'PDF'. Lorsque je clic sur ce bouton je désire que ca me l'imprime via PDF creator, puis que ça me remette mon imprimante par défaut. Le problème c'est que mon imprimante par défaut n'est pas la même chaque jour (pc portable). De plus je suis obligé d'utiliser la méthode ci dessous.
Je souhaiterais qu'à la fin de ce code initialiser mon imprimante par défaut.
Merci par avance.
Private Sub CommandButton4_Click()
Dim Variable_Imp As String
For aa = 0 To 9
Nom = 'PDF sur ne0' & aa & ':'
On Error Resume Next
Application.ActivePrinter = Nom
If ActivePrinter = Nom Then Exit For
Next
End Sub
Sur ma page je dispose d'un bouton 'PDF'. Lorsque je clic sur ce bouton je désire que ca me l'imprime via PDF creator, puis que ça me remette mon imprimante par défaut. Le problème c'est que mon imprimante par défaut n'est pas la même chaque jour (pc portable). De plus je suis obligé d'utiliser la méthode ci dessous.
Je souhaiterais qu'à la fin de ce code initialiser mon imprimante par défaut.
Merci par avance.
Private Sub CommandButton4_Click()
Dim Variable_Imp As String
For aa = 0 To 9
Nom = 'PDF sur ne0' & aa & ':'
On Error Resume Next
Application.ActivePrinter = Nom
If ActivePrinter = Nom Then Exit For
Next
End Sub