macro imprimer avec excell Résolu/Fermé

Question

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.


Configuration: Windows XP / Internet Explorer 8.0

f894009 · Answer

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:
Sub Test_Imprime()
    Sheets("Feuil1").Select
    Range("A1:D15").Select
    Selection.PrintOut
End Sub


A voir

discommeux · Answer

Bravo, effectivement cela fonctionne et je crois être capable d'élaborer les autres.
Merci infiniment.

discommeux · Answer

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.

Macro imprimer avec excell

3 réponses

Discussions similaires

Newsletters