Discussion :

[Invité]

Bonjour le forum,

Voilà j'ai un bouton sur une feuille Excel qui me remplit les cellules puis imprimer la page. Voici la ligne de code qui concerne l'impression :

Code :

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

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

J'ai ainsi un aperçu avant impression, mais si je clique ensuite sur imprimer je ne peux pas choisir l'imprimante et ça imprime automatiquement vers l'imprimante par défaut ... comment proposer le choix de l'imprimante?

Je n'ai pas ce problème si j'imprime sans vba mais je souhaite absolument passer par la macro pour imprimer.

Merci d'avance!

[kiki29]

Salut, qqch dans le genre, à adapter, voir avec enregistreur de macros

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
 
Sub Tst()
Dim sDefaultPrinter As String
    sDefaultPrinter = Application.ActivePrinter
    Application.ActivePrinter = "PDFCreator sur Ne00:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Application.ActivePrinter = sDefaultPrinter
End Sub

[CODYCO]

En cherchant un peu tu aurais trouver facilement...

Code :

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

1
2
 
Application.Dialogs(xlDialogPrint).Show

T'ouvre la boite de dialogue pour imprimer, ne te reste plus qu'a choisir imprimante listé...

[Didier Gonard]

Bonjour,

En cherchant un peu tu aurais trouver facilement...

Oui sauf que explicitement si la personne fait une preview, c'est souvent parce que justement, elle ne veut pas forcément lancer l'impression, donc lui faire choisir l'imprimante par défaut avant à chaque fois, ça peut être lourd..

@ fowlie essayes avec la méthode Prinpreview du genre :

Code :

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

Worksheets(1).PrintPreview

plus précisément / ton cas :

Code :

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

ActiveWindow.SelectedSheets.PrintPreview

tu auras la boîte des imprimantes si impression confirmée

cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[Invité]

Merci pour vos réponses, effectivement si je fait une preview c'est parce que je ne veux pas lancer l'impression sans vérifier avant ...

Je vais tester les solutions proposées et je reviens vers vous.

EDIT
_______________
Merci pour la réponse Ormonth ça marche nickel!!!!

[kiki29]

Re, utilise une imprimante virtuelle style Acrobat, PDFCreator etc , visualise via Acrobat Reader par exemple et si OK imprime sur une imprimante physique via le Reader.

[Invité]

J'avais déjà penser à cette solution kiki29 mais ça fait trop d'étapes =)