Macro imprimer avec excell
Résolu
discommeux
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
discommeux Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
discommeux Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je travaille sur « Lotus 123 version 5 » depuis plus de 20 ans et je refais tous mes fichiers (plus de 1000) en Excell 2010. J'avais des macros d'impressions pour des champs spécifiques dans mes feuilles. J'ai essayé de faire ces macros avec Visual Basic dans Excell2010 sans résultat valable. J'ai lus presque tous vos chroniques sur le sujet sans réussir.
Voici la macro Lotus 123 :
{selectionner A:A81..A:g116}
{DEFINIR "imprimer-marge-haut";"6mm"}{DEFINIR "imprimer-marge-gauche","6mm"}{DEFINIR "imprimer-orientation","portrait"}
{IMPRIMER ;1;9999;1;1}
Voici la Macro fait avec enregistrement de macro et la souris
Sub Macro3()
'
' Macro3 Macro
'
' Touche de raccourci du clavier: Ctrl+a
'
Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
ActiveWindow.SmallScroll Down:=69
Range("A81:G116").Select
Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub
Voici ce que j'obtiens de Visual Basic :
Erreur d'exécution `1004'
Erreur définie par l'application ou par l'objet.
J'ai plusieurs macros d'impressions à effectuer et je crois que si je réussi à comprendre la première les autres suivrons.
Merci à l'avance.
Je travaille sur « Lotus 123 version 5 » depuis plus de 20 ans et je refais tous mes fichiers (plus de 1000) en Excell 2010. J'avais des macros d'impressions pour des champs spécifiques dans mes feuilles. J'ai essayé de faire ces macros avec Visual Basic dans Excell2010 sans résultat valable. J'ai lus presque tous vos chroniques sur le sujet sans réussir.
Voici la macro Lotus 123 :
{selectionner A:A81..A:g116}
{DEFINIR "imprimer-marge-haut";"6mm"}{DEFINIR "imprimer-marge-gauche","6mm"}{DEFINIR "imprimer-orientation","portrait"}
{IMPRIMER ;1;9999;1;1}
Voici la Macro fait avec enregistrement de macro et la souris
Sub Macro3()
'
' Macro3 Macro
'
' Touche de raccourci du clavier: Ctrl+a
'
Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
ActiveWindow.SmallScroll Down:=69
Range("A81:G116").Select
Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub
Voici ce que j'obtiens de Visual Basic :
Erreur d'exécution `1004'
Erreur définie par l'application ou par l'objet.
J'ai plusieurs macros d'impressions à effectuer et je crois que si je réussi à comprendre la première les autres suivrons.
Merci à l'avance.
A voir également:
- Macro imprimer avec excell
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Imprimer tableau excel sur une page - Guide
- Journal de naissance gratuit a imprimer - Télécharger - Histoire & Religion
- Comment imprimer en a5 - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
3 réponses
Bonjour,
Excel 2010: pour une raison que j'ignore, une macro impression selection, faite avec l'enregistrement ne marche pas deux fois?????
Mais ci-dessous ca marche
ex:
A voir
Excel 2010: pour une raison que j'ignore, une macro impression selection, faite avec l'enregistrement ne marche pas deux fois?????
Mais ci-dessous ca marche
ex:
Sub Test_Imprime()
Sheets("Feuil1").Select
Range("A1:D15").Select
Selection.PrintOut
End Sub
A voir
Bravo, effectivement cela fonctionne et je crois être capable d'élaborer les autres.
Merci infiniment.
Merci infiniment.
Bonjour encore,
J'ai complété tous mes macros (5) et elle fonctionnent bien sauf que je n'arrive pas à ajouter la commande d'imprimer 3 copies de ma sélection et je suis obligé d'écrile la macro 3 fois.
Comment puis-je ajouter:
copies=3,
Votre collaboration m'est très précieuse et beaucoup apprécié.
Merci à l'avance.
J'ai complété tous mes macros (5) et elle fonctionnent bien sauf que je n'arrive pas à ajouter la commande d'imprimer 3 copies de ma sélection et je suis obligé d'écrile la macro 3 fois.
Comment puis-je ajouter:
copies=3,
Votre collaboration m'est très précieuse et beaucoup apprécié.
Merci à l'avance.
