XL 2010 programmer une imprimante en VBA

kiki29

XLDnaute Barbatruc

• 12 Janvier 2024

• #2

Salut, fais une recherche sur SetPrinterDuplex.
A voir ici.

 

Dernière édition: 13 Janvier 2024

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 12 Janvier 2024

• #3

Bonjour,

JM27 à dit:

J'ai une imprimante qui imprime en recto/verso
Je souhaite la piloter en verso uniquement , puis revenir après impression recto verso.

Cliquez pour agrandir...

Vaste et complexe sujet...
As-tu cherché sur le forum, en particulier dans les "Discussions similaires" en bas de page ?

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 13 Janvier 2024

• #4

bonjour
merci pour votre aide
je regarde vos propositions

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 13 Janvier 2024

• #5

Bonjour à tous

@JM27

Est ce ton imprimante perso ou celle de ta boite ?
Et si c'est celle de ta boite as tu la main dessus ?

Si tout est verrouillé par ton SI je te propose de voir cette discussion qui ressemble à ton PB

XL 2013 - Changer les paramètres par défaut d'une imprimante

Bonjour à tous. J'utilise un fichier excel avec une impression automatique des onglets sélectionnés via un bouton "Imprimer". Le fichier fonctionne correctement mais j'aimerais pouvoir modifier les paramètres d'impression. En effet, les imprimantes de mon entreprise sont paramétrées en...

excel-downloads.com

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 13 Janvier 2024

• #6

Bonjour
@Phil69970
c'est une imprimante perso qui est lancée à la fin d'un traitement vba.
j'avais pas vu ce fil de discussion, mais l'idée de rajouter des pages entre deux me convient.(c'est une solution de contournement)
merci à tous de votre participation

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 13 Janvier 2024

• #7

Re

Pour le NB/Couleur on peut faire ceci mais c'est hors sujet ici

VB:

Retour = MsgBox("Voullez-vous une copie couleur : O/N ", vbYesNo + vbCritical)
If Retour = vbNo Then Mem = "N & B" Else Mem = "Couleur"

With Worksheets(Nomn de ma feuille).PageSetup
    If Mem = "N & B" Then .BlackAndWhite = True Else .BlackAndWhite = False
End With

Et sur une imprimante perso tu peux créer une imprimante avec les paramètres que tu veux et l'appeler quand tu veux

Voir ici tout le fil (c'est un peu long.....)

Microsoft 365 - Imprimer des fichiers issus d'une liste avec paramêtres imprimante.

Bonjour à tous, Je cherche à imprimer les fichiers contenus dans une liste. Le problème est que les différents codes que je trouve parlent de ActiveSheet.PageSetup ou autre mais de fait, cela fait référence au fichier excel en lui même et non pas à un fichier annexe (liste). Tout est expliqué...

excel-downloads.com

Edit :
En résumé du dernier lien
Tu peux contourner le PB ajoutant la même imprimante 2 fois à Windows et régler les paramètres par défaut de la deuxième imprimante sur Recto seulement.

==> Ton Imprimante (Recto Verso)
==> Ton Imprimante (Recto seul)

Tu appelle dans VBA l'imprimante que tu veux en fonction de ce que tu veux faire .....

 

Dernière édition: 13 Janvier 2024

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 13 Janvier 2024

• #8

merci

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Janvier 2024

• #9

re
bonsoir

dans le pire des cas si tu n'arrive pas à la paramétrer
tu imprime page par page
chaque page sera une session d'impression donc nouvelle feuille a chaque fois

exemple d'impression d'une feuille

VB:

Sub test()
    PrintByPage Sheets(1)
End Sub

Function PrintByPage(WsH As Worksheet)
    Dim NbPageS&, x&
    With WsH
        With .PageSetup
            NbPageS = .Pages.Count
            '...
            '...
            'd'autres paramètre ici que tu pourrais bien vouloir
            '...
            '...
        End With
        For x = 1 To NbPageS: .PrintOut From:=x, To:=x, Copies:=1, Collate:=True, IgnorePrintAreas:=False: Next
    End With
End Function

 

Dernière édition: 13 Janvier 2024

Vote positif 0 Vote négatif