XL 2010 programmer une imprimante en VBA

[JM27]

Bonsoir
J'ai une imprimante qui imprime en recto/verso
Je souhaite la piloter en verso uniquement , puis revenir après impression recto verso.
hélas je ne trouve pas dans l'aide VBA l'instruction qui le fais
merci de votre aide

 

[kiki29]

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

 

[TooFatBoy]

Bonjour,

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

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

 

[JM27]

bonjour
merci pour votre aide
je regarde vos propositions

 

[Phil69970]

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

 

[JM27]

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

 

[Phil69970]

Re

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

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 .....

 

[JM27]

merci

 

[patricktoulon]

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

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