Selection d'une imprimante à partir d'un bouton d'impression

Bonjour à tous,

Voiila, j'ai réalisé un bouton d'impression sur ma feuille excel,
il marche bien, mais je voudrais pouvoir rajouter une ligne dans
la macro pour pouvoir mettre l'imprimante que je veut pour que
le document n'imprime plus sur l'imprimante par défaut...

Voici ma macro:

Private Sub CommandButton1_Click()

Shapes("commandbutton1").Visible = False

Sheets("EPS TRA 002 A").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Shapes("commandbutton1").Visible = True

End Sub


Merci pour votre aide précieuse.

@+

Jordan

Bonjour à tous,

Voiila, j'ai réalisé un bouton d'impression sur ma feuille excel,
il marche bien, mais je voudrais pouvoir rajouter une ligne dans
la macro pour pouvoir mettre l'imprimante que je veut pour que
le document n'imprime plus sur l'imprimante par défaut...

Voici ma macro:

Private Sub CommandButton1_Click()

Shapes("commandbutton1").Visible = False

Sheets("EPS TRA 002 A").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Shapes("commandbutton1").Visible = True

End Sub


Merci pour votre aide précieuse.

@+

Jordan

Bonjour johend,
Pour changer l'imprimante active :
Application.ActivePrinter = "Nom de l'imprimante"
Pour spécifier l'imprimante à l'impression
Range(ActiveSheet.PageSetup.PrintArea).PrintOut
ActivePrinter:="Nom de l'imprimante"

Corto

johend a écrit :

Bonjour à tous,

Voiila, j'ai réalisé un bouton d'impression sur ma feuille
excel,
il marche bien, mais je voudrais pouvoir rajouter une ligne dans
la macro pour pouvoir mettre l'imprimante que je veut pour que
le document n'imprime plus sur l'imprimante par défaut...

Voici ma macro:

Private Sub CommandButton1_Click()

Shapes("commandbutton1").Visible = False

Sheets("EPS TRA 002 A").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Shapes("commandbutton1").Visible = True

End Sub


Merci pour votre aide précieuse.

@+

Jordan

Corto a écrit le 23/04/2009 à 16h49 :

Bonjour johend,
Pour changer l'imprimante active :
Application.ActivePrinter = "Nom de l'imprimante"
Pour spécifier l'imprimante à l'impression
Range(ActiveSheet.PageSetup.PrintArea).PrintOut
ActivePrinter:="Nom de l'imprimante"

Corto

johend a écrit :

Bonjour à tous,

Voiila, j'ai réalisé un bouton d'impression sur ma feuille
excel,
il marche bien, mais je voudrais pouvoir rajouter une ligne dans
la macro pour pouvoir mettre l'imprimante que je veut pour que
le document n'imprime plus sur l'imprimante par défaut...

Voici ma macro:

Private Sub CommandButton1_Click()

Shapes("commandbutton1").Visible = False

Sheets("EPS TRA 002 A").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Shapes("commandbutton1").Visible = True

End Sub


Merci pour votre aide précieuse.

@+

Jordan

Bonjour à tous,

Voila, j'ai ajouté cette ligne comme vous me l'avez conseillé:

Application.ActivePrinter = "\svrguer04.private.legris.comPRODUCTIO N"

Mais je dois mal la placer car il me met un message d'erreur (erreur
d'execution '1004')

Pourriez vous m'aider....?

Merci beaucoup

@+

Bonjour johend,
C'est le nom de l'imprimante tel qu'il apparait dans "Imprimantes et
Télécopieurs" qu'il faut mettre.
Exemple : "HP LaserJet 2000"
Si tu ne sais pas quoi mettre utilise l'enregistreur de macros et
imprime une page sur ton imprimante.

Corto

johend a écrit :

Corto a écrit le 23/04/2009 à 16h49 :

Bonjour johend,
Pour changer l'imprimante active :
Application.ActivePrinter = "Nom de l'imprimante"
Pour spécifier l'imprimante à l'impression
Range(ActiveSheet.PageSetup.PrintArea).PrintOut
ActivePrinter:="Nom de l'imprimante"

Corto

johend a écrit :

Bonjour à tous,

Voiila, j'ai réalisé un bouton d'impression sur ma feuille
excel,
il marche bien, mais je voudrais pouvoir rajouter une ligne dans
la macro pour pouvoir mettre l'imprimante que je veut pour que
le document n'imprime plus sur l'imprimante par défaut...

Voici ma macro:

Private Sub CommandButton1_Click()

Shapes("commandbutton1").Visible = False

Sheets("EPS TRA 002 A").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Shapes("commandbutton1").Visible = True

End Sub


Merci pour votre aide précieuse.

@+

Jordan

Bonjour à tous,

Voila, j'ai ajouté cette ligne comme vous me l'avez conseillé:

Application.ActivePrinter = "svrguer04.private.legris.comPRODUCTIO
N"

Mais je dois mal la placer car il me met un message d'erreur (erreur
d'execution '1004')

Pourriez vous m'aider....?

Merci beaucoup

@+