Impression Résolu

[jpaul625]

Bonjour a vous tous

voici mon problème j'ai une imprimante Epson wf-3640,elle a deux bac.
Je voudrais ajouter a ce macro : toujours sélectionner le bac 1 et non le 2

Sub Copie()
'
' Copie Macro
'

'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

merci

 

[MichD]

Re : Impression

Bonjour,

VBA dans Excel ne peut pas modifier (choisir) le bac de papier pour une impression.

Cependant, tu peux installer 2 fois la même imprimante avec un nom différent. Pour chaque imprimante, tu définis manuellement le bac d'impression spécifique à chaque imprimante.

Dans la procédure "Test" suivante, tu dois adapter le nom de l'imprimante avec laquelle tu désires imprimer pour cette variable de ton environnement
ImprimanteDésirée = "HP Deskjet 930C/932C/935C"

Sub test()
Dim ImprimanteDésirée As String, ImprimanteActuel As String

'************** VARIABLE À DÉFINIR*********************
'Le nom de l'imprimante que tu veux tel qu'il est écrit
'dans le panneau de configuration / Périphériques
ImprimanteDésirée = "HP Deskjet 930C/932C/935C"
'*******************************************************

'Prend en note l'imprimante par défaut actuel
ImprimanteActuel = Application.ActivePrinter

'Modifie l'imprimante pour celle que tu désires.
ChangeImprimanteParDéfaut ImprimanteDésirée

'Exécute l'impression
'ActiveWindow.SelectedSheets.PrintOut Copies:=1

'Remet l'imprimante par défaut comme avant.
ChangeImprimanteParDéfaut ImprimanteActuel

End Sub
'-----------------------------------------------------------
Sub ChangeImprimanteParDéfaut(Imprimante)
Dim WshNetwork, oPrinters, I, DefPrinter
DefPrinter = Application.ActivePrinter
Set WshNetwork = CreateObject("WScript.Network")
Set oPrinters = WshNetwork.EnumPrinterConnections
For I = 0 To oPrinters.Count - 1 Step 2
    If InStr(1, Imprimante, oPrinters.Item(I + 1), vbTextCompare) = 1 Then
        WshNetwork.SetDefaultPrinter oPrinters.Item(I + 1)
        Exit Sub
    End If
Next
End Sub

 

[jpaul625]

Re : Impression

Merci pour répondre
pour installer 2 fois la même imprimante comment je fais
merci

 

[MichD]

Re : Impression

La séquence pour Windows 8.1

Panneau de configuration \ Matériel et audio \ Périphériques et imprimantes\

Tu as la commande "Ajouter une imprimante" / dans la fenêtre ouvrante : choisir : L'imprimante que je veux n'est pas répertoriée / Suivant / sélectionner le bouton radio : Ajouter une imprimante locale ou réseau avec des paramètres manuels / suivant / suivant /
Tu choisis le fabricant suivi du modèle de l'imprimante / suivant / Donne un nom à cette imprimante / suivant / Ne pas partager cette imprimante /suivant / terminer.

 

[jpaul625]

Re : Impression

C'est parfait cela fonctionne
merci