Choisir le bac (ou tiroir) d'une imprimante

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 695 fois - Téléchargée 17 fois

Contenu du snippet

Voici une astuce pour choisir un tiroir sur une imprimante sans avoir a faire des sendkeys...etc..

Dans un premier temps créer une feuille excel que nous nommerons "bac1".
---Sur la feuille "bac1", faire apercu avant impression puis choisir dans les options d'impression le bac 1 de votre imprimante.
Creer ensuite une nouvelle feuille excel que nous nommerons "bac2".
---Sur la feuille "bac1", faire apercu avant impression puis choisir dans les options d'impression le bac 2 de votre imprimante.

Il ne reste plus qu'a faire un programme qui copie le contenu d'une feuille quelconque vers la feuille en lien avec le bac1 ou 2, puis imprimer.
Dans le code source nous avons un exemple qui permet d'imprimer 1 facture de base en utilisant 2 tiroirs de l'imprimante

Source / Exemple :


Sub IMPRIMER()
'
'impression de 2 factures sur le tiroir 1 et 1 facture sur le tiroir 2'
'attention il faut choisir les options d'impression differentes pour chaque feuilles (feuille "bac1"--> tiroir1)
'Pour cela choisir une feuille faire apercu avant impression puis dans les options choisir le tiroir

'Page de base
Sheets("facture").Select

'selection de toutes les cellules, copie, selection de a1 (plus propre :-)
Cells.Select
Selection.Copy
Range("A1").Select

'selection de la page pour bac1, coller la facture, selection de la page pour bac2, coller la facture
Sheets("bac1").Select
Cells.Select
ActiveSheet.Paste

Sheets("bac2").Select
Cells.Select
ActiveSheet.Paste

Application.CutCopyMode = False
Range("A1").Select

'impression des documents

Sheets("bac1").Select
ExecuteExcel4Macro "PRINT(1,,,2,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("bac2").Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("facture").Select

End Sub

Conclusion :


Deux impressions differentes en une macro

A voir également

Ajouter un commentaire

Commentaires

Messages postés
2
Date d'inscription
mercredi 15 avril 2009
Statut
Membre
Dernière intervention
22 août 2011

merci
Messages postés
7
Date d'inscription
mardi 4 juillet 2006
Statut
Membre
Dernière intervention
12 avril 2009

Bonjour,
Pourquoi pas ? Les puristes vont sans doute crier au scandale, mais c'est simple et efficace. Je trouve bien souvent moi aussi des solutions non orthodoxes et tant que ça marche, pourquoi chercher autre chose ? Je pense que ces 2 pages, une fois créées et paramétrées peuvent ensuite être cachées ; l'aspect du classeur resterait ainsi celui d'origine + un gel de l'affichage avant de faire les copies (Application.ScreenUpdating = False) et remise en route à la fin (= True)pour éviter tous ces "gigotements" à l'écran.
Les pages en question peuvent être démasquées et remasquées avec Sheets("bac1").Visible = True (False). Tu le sais probablement déjà, mais au cas où ...
Bonne continuation.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.