Imprimer sur imprimante partagée
Bonjour,
J'ai un petit problème, je voudrais que l'impression demandée dans mon code se fasse sur une imprimante partagée mais sans modifier l'imprimante par défaut du Pc car seul le UserForm doit s'imprimer sur l'imprimante partagée
Le problème c'est qu'il ne reconnait pas mon imprimante partagée..
Pouvez-vous m'aider ?
Merci beaucoup
'Procedure permettant d'ajouter les informations dans le document à imprimer
Private Sub btprint_Click()
Dim A As String
'Conserve dans une variable l'imprimante local actuel
A = Application.ActivePrinter
'Modifier l'imprimante par défaut pour le temps de l'impression
With CreateObject("WScript.Network")
.SetDefaultPrinter "\\BELGEDISTWDVCT\BEDBPRN032"
End With
'On teste que les contôles ont bien été saisie
If Len(Me.txtordnum) = 0 Then
Me.txtordnum.SetFocus
ElseIf Len(Me.txtpartnum) = 0 Then
Me.txtpartnum.SetFocus
ElseIf Len(Me.cbissue) = 0 Then
Me.cbissue.SetFocus
ElseIf Len(Me.txtquant) = 0 Then
Me.txtquant.SetFocus
Else
Feuil1.Activate
'On affecte les données du formulaire dans la source
Sheets("Feuil1").Range("D2") = Me.txtordnum.Value
Sheets("Feuil1").Range("D5") = Me.txtpartnum.Value
Sheets("Feuil1").Range("D7") = Me.txtline.Value
Sheets("Feuil1").Range("D4") = Me.txtops.Value
Sheets("Feuil1").Range("D9") = Me.cbissue.Value
Sheets("Feuil1").Range("D10") = Me.txtlotnum.Value
Sheets("Feuil1").Range("D11") = Me.txtquant.Value
ThisWorkbook.Worksheets("Feuil1").Visible = True
'Sélection de la zone à imprimer
Range("C1:D11").Select
Selection.PrintOut Copies:=1
ThisWorkbook.Worksheets("Feuil1").Visible = False
'remet l'imprimante locale
Application.ActivePrinter = A
'On vide le formulaire pour une prochaine saisie
Call btclear_Click
End If
End Sub
Bonjour,
il y a un exemple très complet Chip Pearson
ici: