Bouton IMPRIMER

[PatLac]

Bonjour à tous !
Je voudrais inclure un bouton "IMPRIMER" sur une feuille.
Juste qu´en cliquant sur le dit bouton, tout ce qui est sur la feuille s´imprime.🙂
Quelqu´un aurait-il une macro en stock ?
Merci pour votre aide.

 

[Fred0o]

Re : Bouton IMPRIMER

Bonjour PatLac,

Visiblement, tu n'as pas fait de recherche sur ce forum car tu aurais immanquablement trouvé. Regardes donc les 5 liens suggérés en bas de cette discussion et peut-être trouveras-tu ton bonheur.

A+

 

[grisan29]

Re : Bouton IMPRIMER

bonjour Patlac
peu etre que ceci te convient a mettre derriere un bouton

Sub Impression()
' Impression Macro
    Sheets("Feuil1").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
end sub

Pascal

 

[PatLac]

Re : Bouton IMPRIMER

FredOo Bonjour !
Si, j´avais regardé, mais surement mal. 😀
Merci pour les liens, mais c´est trop pointu pour mon utilisation, je cherche juste un truc tout simple ...

Grisan29 Bonjour ! 😱
Est-ce que je peux abuser et te demander de l´inclure dans un exemple, avec le bouton, et le mettre en pièce jointe, car suis pas trop fut fut ... 🙁

D´avance merci

 

[PatLac]

Re : Bouton IMPRIMER

Grisan29!
Ne tiens pas compte de mon dernier message, j´ai cherché un peu. 😛
Ci-dessous un exemple pour ceux comme moi qui ne sont pas fut fut ...🙄

J´ai une autre requete par contre :
Je voudrais imprimer sur une imprimante qui est sur une imprimante réseau, accessible soit par IP, soit par une adresse classique.
Une idée ? 😕
Merci.

 

[grisan29]

Re : Bouton IMPRIMER

bonjour PatLav
tant mieux si ma solution te vas car pour ce qui est du imprimer en réseau cela n'est pas de compétence et je laisse volontier la main a un autre😕

cordialement

Pascal

 

[PatLac]

Re : Bouton IMPRIMER

Merci quand même !
Salutations. 😱

 

[JCGL]

Re : Bouton IMPRIMER

Bonjour à tous,

Voici une syntaxe :

ActiveWindow.SelectedSheets.PrintOut Copies:=2, ActivePrinter:= _
        "\\BIBI\Microsoft XPS Document Writer sur Ne06:", Collate:=True

Pour récuperer le chemin exact de l'imprimante, tu peux lancer l'enregistreur de macro

A + à tous

 

[JCGL]

Re : Bouton IMPRIMER

Bonjour à tous,

Surement plus simple :

Sub Impression()
Application.Dialogs(xlDialogPrinterSetup).Show
    ActiveSheet.PrintOut Copies:=2
End Sub

A + à tous