Discussion :

[marc56]

Bonjour le forum,

Je dois pouvoir imprimer sur 2 imprimantes qui possèdent 2 bacs chacunes, l'un avec du papier blanc et l'autre avec du papier à entête.
Au début je rentrais le nom de l'imprimante et de son bac à utiliser en dur dans le code et cela fonctionnait très bien. Pour avoir plus de souplesse, je souhaite mettre le non de l'imprimante en variable dans le code.
J'ai une feuille "PARAM" avec la liste des noms des imprimantes et de leurs bacs et une liste de validation pour choisir celle que je souhaite utiliser.
Dans le code j'ai déclaré en variable le nom à récupérer et je le récupère bien.
Au moment de l'exécution du code, mais c'est quand je dois activer l'imprimante que j'ai un message d'erreur, sûrement un problème de syntaxe. J'ai essayé de rajouter des doubles cotes(") mais sans succès. Quelqu'un a-t-il la solution?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Imprimer_Couv() 'Couverture
    ImpBac1 = Sheets("PARAM").Range("B26") 'imprimante et bac à utiliser
    ImpBac2 = Sheets("PARAM").Range("B27") 'imprimante et bac à utiliser
 
    'Imprimer sur papier entête (bac 2)
    Range("A1:AM61").Select 'sélection de la zone à imprimer
 
    'Ancien code qui fonctionne
    'Application.ActivePrinter = "\\SOFISDATA\IMP01-001 sur Ne07:"
 
    'Nouveau code qui ne fonctionne pas
    Application.ActivePrinter = "ImpBac2"
 
    ExecuteExcel4Macro _
        "PRINT(1,,,1,,,,,,,,1,""ImpBac2"",,TRUE,,FALSE)" 'Nb de copies en position 4 (1)
 
End Sub

A l'avance, merci.

[DeaD78]

Salut,

Pour commencer, mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.PageSetup.PrintArea = "$A$1:$AM$61

à la place de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1:AM61").Select

C'est comme cela qu'on définit une zone à imprimer.

Ensuite, en écrivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ActivePrinter = "ImpBac2"

tu sous-entends que le nom de ton imprimante est ImpBac2, ce qui est faux. Tu as 2 choix. Soit tu écris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ActivePrinter = ImpBac2

et ta cellule B27 contient "\\SOFISDATA\IMP01-001 sur Ne07:" avec les guillemets ! Soit tu écris Application.ActivePrinter = """" & ImpBac2 & """" si tu as \\SOFISDATA\IMP01-001 sur Ne07: en B27 sans les guillemets.

FYI, tu as un forum VBA Excel : à l'avenir, poste dessus, il est plus approprié pour tout ce qui touche au VBA.

A+

[marc56]

Bonsoir,
Je vais poster dans la partie VBA et simplifier car je me suis un peu mélangé les pinceaux dans les noms d'imprimantes.

[marc56]

Bonjour le forum,


Comment récupérer le nom de l'imprimante à utiliser sachant que celle-ci peut être différente en fonction des besoins.
Le choix se fait dans la feuille "PARAM" en B26 (liste de validation)

Voici mon code (je suis novice) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Imprimer_Couv() 'Imprimer la couverture
    ImpBac1 = Sheets("PARAM").Range("B26") 'imprimante et bac à utiliser
 
    'Zone à imprimer
    ActiveSheet.PageSetup.PrintArea = "$A$1:$AM$61"
 
    'Ancien code qui fonctionne avec saisie en dur
    'Application.ActivePrinter = "Brother HL-1430 series sur Ne07:"
 
    'Nouveau code qui ne fonctionne pas
    Application.ActivePrinter = "ImpBac1" '<---Arrêt ici
 
    ExecuteExcel4Macro _
        "PRINT(1,,,1,,,,,,,,1,"""" & ImpBac1 & """",,TRUE,,FALSE)" 'Nb de copies en position 4 (1)
 
End Sub

Je récupère bien le nom en "ImpBac1", mais j'ai un message d'erreur au moment d'activer l'imprimante.

Quelqu'un voit-il pourquoi?

[DeaD78]

Salut,

As-tu testé ce que je t'ai proposé dans mon autre message ?

[marc56]

J'ai modifié le code comme tu me l'avais suggéré mais j'ai toujours un message d'erreur au moment d'activer l'imprimante.
Désolé.

[DeaD78]

Dis-moi ce que tu as comme valeurs dans ta cellule, mot pour mot. Donne m'en 2 ou 3.

[marc56]

Bonjour,

Voici 3 imprimantes

Brother HL-1430 series sur Ne07:
\\SOFISDATA\IMP01-001 sur Ne07:
\\SOFISDATA\IMP01-001_bac2 sur Ne08:

et une copie d'écran d'une partie de ma feuille "PARAM" avec des listes de validation en B26 et B27. Pour tester ton code je n'ai utilisé que B26.

J'ai eu un doute sur le n° de port et viens de re-tester en rentrant le nom en dur et l'imprimante fonctionne sauf que la feuille sort blanche avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    ActiveSheet.PageSetup.PrintArea = "$A$1:$AM$61"

et quand je met

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1:AM61").Select

elle s'imprime normalement.

Merci pour ton aide.