Choix imprimante

[Whooki]

Bonjour à tous.

Sur ma page je dispose d'un bouton 'PDF'. Lorsque je clic sur ce bouton je désire que ca me l'imprime via PDF creator, puis que ça me remette mon imprimante par défaut. Le problème c'est que mon imprimante par défaut n'est pas la même chaque jour (pc portable). De plus je suis obligé d'utiliser la méthode ci dessous.

Je souhaiterais qu'à la fin de ce code initialiser mon imprimante par défaut.

Merci par avance.

Private Sub CommandButton4_Click()

Dim Variable_Imp As String

For aa = 0 To 9
Nom = 'PDF sur ne0' & aa & ':'
On Error Resume Next
Application.ActivePrinter = Nom
If ActivePrinter = Nom Then Exit For
Next


End Sub

 

[Hervé]

Bonjour whooki, le forum

peut etre en stockant dans une variable le nom de ton imprimante avant ton traitement :

Dim nom As String

nom = Application.ActivePrinter
'ton traitement
Application.ActivePrinter = nom

salut

 

[Whooki]

Merci Hervé dde ton aide,
j'utilise ce code là mais ça n'a pas l'air de fonctionner...
Private Sub CommandButton4_Click()

Dim print As String

print = Application.ActivePrinter

Dim Variable_Imp As String

For aa = 0 To 9
Nom = 'PDF sur ne0' & aa & ':'
On Error Resume Next
Application.ActivePrinter = Nom
If ActivePrinter = Nom Then Exit For
Next

Application.ActivePrinter = print


End Sub

 

[Hervé]

re

j'ai pas compris ce que tu cherchais à faire avec ce code, mais tu ne peux pas utiliser print comme nom de variable, c'est un mot clé de vba.

si ton objectif est de sélectionner une imprimante, tu peux utiliser la boite de dialogue choix de l'imprimante :

Application.Dialogs(xlDialogPrinterSetup).Show

sinon, merci de préciser ton objectif.

salut

 

[Whooki]

Hervé,

Je souhaite en démarrant mon pc, choisir l'imprimante par défaut (imprimante par défaut variable).Lorsque je veux imprimer ma page, je désire soit l'imprimer sur papier, soit au format PDF. L'imprimante PDF varie d'adresse Ne 00 à chaque démarrage c'est pourquoi j'utilse le code:

Dim Variable_Imp As String

For aa = 0 To 9
Nom = 'PDF sur ne0' & aa & ':'
On Error Resume Next
Application.ActivePrinter = Nom
If ActivePrinter = Nom Then Exit For
Next.

Je souhaiterais qu'a la fin de ce code ça me remette l'imprimante par défaut.

Merci

 

[PascalXLD]

Bonjour

C'est bizarre mais le code initial me rappelle 'vaguement' quelque chose.

C'est sympa de citer vos sources

 

[Whooki]

Bonjour à tous,

Oui effectivement Pascal 76 peut etre cela provient de toi...

 

[PascalXLD]

Re

Tu peux retirer le peut-être car pour te dire tu n'as même pas changer le nom de la variable aa ni celui de Nom donc je le reconnais ce code j'ai encore le fichier sur lequel je l'ai utilisé sous les yeux

Sinon tu peux faire même si tu ne citeras pas tes sources

Dim monimprimante

monimprimante = ActivePrinter 'récupérer imprimante active

For aa = 0 To 9
Nom = 'PDF sur ne0' & aa & ':'
On Error Resume Next
Application.ActivePrinter = Nom
If ActivePrinter = Nom Then Exit For
Next.

'Là ta conversion en PDF puis

ActivePrinter = monimprimante 'remettre imprimante active

 

[PascalXLD]

Re

Arf José tu as raison
Mais oui mais c'est bien sûr. Il me semblait bien avoir vu cela quelque part....

Sinon dis donc hier tu avais un nouvel avatar et voilà qu'aujourd'hui je revois l'ancien.

Bonne journée à toi

 

[Whooki]

Hervé,
J'ai essayé ton code mais ca ne fonctionne pas...

 

[Whooki]

Re bonjour à tous,

Non le code de Pascal ne fonctionne pas.
Ci-joint le classeur.

Merci [file name=Classeur1_20060523100510.zip size=6632]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060523100510.zip[/file]

 

[PascalXLD]

RE

Je ne veux pas paraitre mauvaise langue mais mon code marche il est pour ainsi dire utilisé tous les jours dans ma boite

Le bout de code que tu as mis passe bien l'imprimante en pdf puis remets l'imprimante active ensuite

Sauf que chez moi pour le pdf c'est

Nom = 'Adobe PDF sur ne0' & aa & ':'

Alors précise exactement ce qui ne marche pas

 

[Hervé]

bonjour tout le monde

Chez moi pour pdf creator, c'est : PDFCreator sur Ne00:


salut

 

[Whooki]

Pascal, Hervé merci encore de votre aide,

Comme vous pouvez le voir sur le fichier, le code ne fonctionne pas. C'est moi qui est renomé l'imprimante PDF, avant c'était PDF CREATOR.

Lorsque je clic sur ce bouton, le sablier apparait mais ne déclanche pas le programme. [file name=Classeur1_20060523103301.zip size=6632]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060523103301.zip[/file]

 

[Hervé]

re

je viens de tester ta macro en adaptant mon nom d'imprimante : Nom = 'PDFcreator sur ne0' & aa & ':'

et je ne rencontre pas de souci, mon imprimante est bien detecté, et passé en défaut.

le souci doit venir de tes noms d'imprimantes, à toi de vérifier.

salut