[VBA-Corel] imprimante par defaut

**ptitnico22** · 22/05/2006, 09h01

bonjour
voila je voudrais savoir comment faire une macro en visual basic qui spécifie une nouvelle imprimante par defaut.
merci

**ouskel'n'or** · 22/05/2006, 09h10

Code :

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

1
2
3
Sub ImprimanteChanger()
    Application.ActivePrinter = "<a href="file://OLAN/CCABB101" target="_blank">\\OLAN\CCABB101</a> sur Ne04:"
End Sub

où "\\OLAN\CCABB101 sur Ne04:" est une imprimante sur le réseau.

**ptitnico22** · 22/05/2006, 09h16

sa ne marche pas sa me met :

erreur d'éxécution '438'
propriété ou methode non gérée par cet objet

**jmfmarques** · 22/05/2006, 09h26

Le problème 1er est celui de l'absence de tag, apparemment...
pour l'instant on voit le tag VB et une allusion à une macro !
On ne sait donc plus de quoi il s'agit (VB ou VBA ?)

**jmfmarques** · 22/05/2006, 09h31

Euh...
T'es sûr, Ousk, que tu ne voulais pas mettre également ce lien sur ce sujet :
http://www.developpez.net/forums/sho...299#post973299

**ouskel'n'or** · 22/05/2006, 09h37

Autant pour moi

J'étais sur les PDF d'un autre post
Je te laisse un moment, le temps de corriger tout ça

A+

**ouskel'n'or** · 22/05/2006, 09h42

Oui, avec VB, ça ne peut pas être "Application."(ActivePrinter) qui est réservé aux appli Office. Regarde dans l'aide à ActivePrinter, tu devrais trouver la syntaxe exacte

Je te laisse avec les pros de VB

Bonne chance

**ptitnico22** · 22/05/2006, 09h44

Je suis dans corel draw 12 et corel a un editeur microsoft visual basic

J'ai donc ce code et la dedans je voudrais inséré un code qui permet de modifié l'imprimante par defaut

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
 
Sub lancement()
'macro qui permet d'ouvrir directement les propriétés de l'imprimante pour ensuite imprimer le document.
 
On Error GoTo ErrorHandler 
With ActiveDocument
     .PrintSettings.Printer.showdialog 'ouvre la boite de dialogue des propriétés de l'imprimante par defaut.
     If vbNo = MsgBox("Lancer en gravure ce document ?", vbYesNo) Then   'demande confirmation pour l'envoie en gravure.
         GoTo ErrorHandler 'reponse "annuler" revoie a ErrorHandler
       Else
         .PrintOut 'reponse "ok" et lance la gravure
     End If
End With
ErrorHandler: 
End Sub

Pense aux balises Code et /Code et indente ton code ajoutées par ousk'

**ouskel'n'or** · 22/05/2006, 09h54

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
18
Sub SélectionnerUneImprimante()     'voir aussi Imprimer
    'MonImprimante = "<a href="file://OLAN/CCACX010" target="_blank">\\OLAN\CCACX010</a> sur Ne05:"
    With Application
          ImprimanteActive = .ActivePrinter
    End With
    MonImprimante = "Acrobat Distiller sur Ne01:"
    Application.ActivePrinter = MonImprimante
 
    If Trim(UCase(MonImprimante)) <> Trim(UCase(ImprimanteActive)) Then
           MsgBox "c'est pas la bonne imprimante"
           'Tu fais ce que tu as à faire...
    End If
 
    'Pour revenir sur l'imprimante par défaut :
    With Application
          .ActivePrinter = ImprimanteActive
    End With
End Sub

J'ai ça, en VBA, sur Excel, et qui fonctionne. Ici, l'imprimante est virtuelle mais pour une imprimante matérielle, la syntaxe est la même.
As-tu regardé à ActivePrinter, dans l'aide ? F1