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:

Rechercher des sujets similaires à "imprimer imprimante partagee"