Macro pour choisir imprimante et imprimer

[pasquetp]

Bonjour,
je travaille en entreprise et souvent je dois imprimer des documents (plusieurs exemplaires). ca fait un peu bcp. je voudrai creer une macro qui puisse me permettre de choisir (par userform de preference) les imprimantes INSTALLEES SUR LORDI et ensuite que je puisse imprimer le nbre de copies a cette imprimante. je pensai avoir reussi avec cette macro mais ca pose un pb. je peux imprimer dpuis mon ordi mais pas depuis un autre car on a pas forcement les memes imprimantes installés. ma macro c'est par rapport aux imprimantes que jutilise. c'est le pb. je voudrai que quand la perosnne utilise ce fichier sur DES ORDI, les imprimantes puissent etre identifié par ma macro et que ca imprime sur limprimante de leur choix

merci davance

 

[JCGL]

Re : Macro pour choisir imprimante et imprimer

Bonjour à tous,

Pas vraiment un code mais un *.exe

A + à tous

 

[Compte Supprimé 979]

Re : Macro pour choisir imprimante et imprimer

Bonjour pasquetp
Salut JC 😉

Sinon un petit code trouvé surle site de notre ami Frédéric SIGONNEAU

'Liste les imprimantes, donne le choix et le nombre de pages à imprimer.
'Michel Pierron, mpfe
 
Sub Imprime()
Dim BookName As String
 
  BookName = Workbooks("Machin.xls")
  If Not Printer_Choice(BookName) Then
    Workbooks(BookName).Sheet(1).PrintOut copies:=1
  Else
    MsgBox "Impression abandonnée"
  End If
End Sub
 
'Sélection imprimante pour impression
Function Printer_Choice(nBook As String) As Boolean
Const msgPart1 = " page(s) à imprimer sur "
Const msgPart2 = "Imprimante active :"
Const msgPart3 = "Voulez-vous changer d'imprimante ?"
Dim Reply As Byte, Actual_Printer As String, nbPages As String
 
  Printer_Choice = True 'pour éviter l'erreur signalée plus bas
  If Not nBook = "" Then
    Workbooks(nBook).Activate
    nbPages = ExecuteExcel4Macro("GET.DOCUMENT(50)") & msgPart1
  End If
  Actual_Printer = Application.ActivePrinter
  Reply = MsgBox(nbPages & msgPart2 & vbLf & Actual_Printer & " !" & _
              vbLf & vbLf & msgPart3, 3 + 32 + 256, "Info utilisateur")
  ' ici erreur si on sort de la boite de dialogue par Annuler
  If Reply = vbYes Then Application.Dialogs(xlDialogPrinterSetup).Show
  If Reply = vbCancel Then Printer_Choice = True
 
End Function

A+

 

[pasquetp]

Re : Macro pour choisir imprimante et imprimer

BONJOUR BRUNO,

merci de votre aide.

toutefois,

pourriez vous menvoyer un fichier exemple afin que je vois son fonctionnement

merci d'avance