Je voudrait que lorsque s'exécute la macros (suivante) que l'entete A1:L! se
répète sur tout les page.
Parfois il y a une page parfois il y en n'a plusieurs
Merci pour votre aide.
Sub imp_défault()
'
' imp_défault Macro
' pour imprimer les défaut sélectionner
Windows("Insp_rousSorel.xls:3").Activate
ActiveWindow.SmallScroll ToRight:=5
Range("L1").Select
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlToLeft)).Select
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Selection.PrintOut Copies:=1, Collate:=True
Range("B1").Select
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gaenonius
Pas sûr d'avoir compris, mais dans les options de mise en page (FichierMise en page), l'onglet Feuille comporte une option Lignes à répéter en haut qui semble correspondre à ta demande.
-- Gaenonius
Bonjour à Tous
Je voudrait que lorsque s'exécute la macros (suivante) que l'entete A1:L! se répète sur tout les page. Parfois il y a une page parfois il y en n'a plusieurs
Merci pour votre aide.
Sub imp_défault() ' ' imp_défault Macro ' pour imprimer les défaut sélectionner Windows("Insp_rousSorel.xls:3").Activate ActiveWindow.SmallScroll ToRight:=5 Range("L1").Select Selection.End(xlDown).Select Range(Selection, Selection.End(xlUp)).Select Range(Selection, Selection.End(xlUp)).Select Range(Selection, Selection.End(xlToLeft)).Select With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With Selection.PrintOut Copies:=1, Collate:=True Range("B1").Select End Sub
Pas sûr d'avoir compris, mais dans les options de mise en page (FichierMise en
page), l'onglet Feuille comporte une option Lignes à répéter en haut qui semble
correspondre à ta demande.
--
Gaenonius
Bonjour à Tous
Je voudrait que lorsque s'exécute la macros (suivante) que l'entete A1:L! se
répète sur tout les page.
Parfois il y a une page parfois il y en n'a plusieurs
Merci pour votre aide.
Sub imp_défault()
'
' imp_défault Macro
' pour imprimer les défaut sélectionner
Windows("Insp_rousSorel.xls:3").Activate
ActiveWindow.SmallScroll ToRight:=5
Range("L1").Select
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlToLeft)).Select
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Selection.PrintOut Copies:=1, Collate:=True
Range("B1").Select
End Sub
Pas sûr d'avoir compris, mais dans les options de mise en page (FichierMise en page), l'onglet Feuille comporte une option Lignes à répéter en haut qui semble correspondre à ta demande.
-- Gaenonius
Bonjour à Tous
Je voudrait que lorsque s'exécute la macros (suivante) que l'entete A1:L! se répète sur tout les page. Parfois il y a une page parfois il y en n'a plusieurs
Merci pour votre aide.
Sub imp_défault() ' ' imp_défault Macro ' pour imprimer les défaut sélectionner Windows("Insp_rousSorel.xls:3").Activate ActiveWindow.SmallScroll ToRight:=5 Range("L1").Select Selection.End(xlDown).Select Range(Selection, Selection.End(xlUp)).Select Range(Selection, Selection.End(xlUp)).Select Range(Selection, Selection.End(xlToLeft)).Select With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With Selection.PrintOut Copies:=1, Collate:=True Range("B1").Select End Sub
Daniel
Non Je m'explique un peu plus, J'ai plusieurs macro pour imprimer dans mon fichier mais je veux que dans la macros (qui est dans ma première envoie) la première ligne (A1 à L1) se répète sur chaque page qui s'imprime et indique le nombre de page sur chacune. (1de3 ,2de3,3de3). Merci
"Gaenonius" a écrit dans le message de news:
Pas sûr d'avoir compris, mais dans les options de mise en page (FichierMise en page), l'onglet Feuille comporte une option Lignes à répéter en haut qui semble correspondre à ta demande.
-- Gaenonius
Bonjour à Tous
Je voudrait que lorsque s'exécute la macros (suivante) que l'entete A1:L! se répète sur tout les page. Parfois il y a une page parfois il y en n'a plusieurs
Merci pour votre aide.
Sub imp_défault() ' ' imp_défault Macro ' pour imprimer les défaut sélectionner Windows("Insp_rousSorel.xls:3").Activate ActiveWindow.SmallScroll ToRight:=5 Range("L1").Select Selection.End(xlDown).Select Range(Selection, Selection.End(xlUp)).Select Range(Selection, Selection.End(xlUp)).Select Range(Selection, Selection.End(xlToLeft)).Select With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With Selection.PrintOut Copies:=1, Collate:=True Range("B1").Select End Sub
Non Je m'explique un peu plus,
J'ai plusieurs macro pour imprimer dans mon fichier mais
je veux que dans la macros (qui est dans ma première envoie)
la première ligne (A1 à L1) se répète sur chaque page qui s'imprime et
indique le nombre de page sur chacune. (1de3 ,2de3,3de3).
Merci
"Gaenonius" <noname@nowhere> a écrit dans le message de news:
eyaA5Qd7EHA.2196@TK2MSFTNGP11.phx.gbl...
Pas sûr d'avoir compris, mais dans les options de mise en page
(FichierMise en page), l'onglet Feuille comporte une option Lignes à
répéter en haut qui semble correspondre à ta demande.
--
Gaenonius
Bonjour à Tous
Je voudrait que lorsque s'exécute la macros (suivante) que l'entete A1:L!
se répète sur tout les page.
Parfois il y a une page parfois il y en n'a plusieurs
Merci pour votre aide.
Sub imp_défault()
'
' imp_défault Macro
' pour imprimer les défaut sélectionner
Windows("Insp_rousSorel.xls:3").Activate
ActiveWindow.SmallScroll ToRight:=5
Range("L1").Select
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlToLeft)).Select
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Selection.PrintOut Copies:=1, Collate:=True
Range("B1").Select
End Sub
Non Je m'explique un peu plus, J'ai plusieurs macro pour imprimer dans mon fichier mais je veux que dans la macros (qui est dans ma première envoie) la première ligne (A1 à L1) se répète sur chaque page qui s'imprime et indique le nombre de page sur chacune. (1de3 ,2de3,3de3). Merci
"Gaenonius" a écrit dans le message de news:
Pas sûr d'avoir compris, mais dans les options de mise en page (FichierMise en page), l'onglet Feuille comporte une option Lignes à répéter en haut qui semble correspondre à ta demande.
-- Gaenonius
Bonjour à Tous
Je voudrait que lorsque s'exécute la macros (suivante) que l'entete A1:L! se répète sur tout les page. Parfois il y a une page parfois il y en n'a plusieurs
Merci pour votre aide.
Sub imp_défault() ' ' imp_défault Macro ' pour imprimer les défaut sélectionner Windows("Insp_rousSorel.xls:3").Activate ActiveWindow.SmallScroll ToRight:=5 Range("L1").Select Selection.End(xlDown).Select Range(Selection, Selection.End(xlUp)).Select Range(Selection, Selection.End(xlUp)).Select Range(Selection, Selection.End(xlToLeft)).Select With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With Selection.PrintOut Copies:=1, Collate:=True Range("B1").Select End Sub
Gaenonius
Fais les manips indiquées (pour répéter une ligne, pour numéroter les pages) avec l'enregistreur de macros et tu auras une bonne base de départ à arranger ensuite "à ta sauce".
-- Gaenonius
Non Je m'explique un peu plus, J'ai plusieurs macro pour imprimer dans mon fichier mais je veux que dans la macros (qui est dans ma première envoie) la première ligne (A1 à L1) se répète sur chaque page qui s'imprime et indique le nombre de page sur chacune. (1de3 ,2de3,3de3). Merci
"Gaenonius" a écrit dans le message de news:
Pas sûr d'avoir compris, mais dans les options de mise en page (FichierMise en page), l'onglet Feuille comporte une option Lignes à répéter en haut qui semble correspondre à ta demande.
-- Gaenonius
Bonjour à Tous
Je voudrait que lorsque s'exécute la macros (suivante) que l'entete A1:L! se répète sur tout les page. Parfois il y a une page parfois il y en n'a plusieurs
Merci pour votre aide.
Sub imp_défault() ' ' imp_défault Macro ' pour imprimer les défaut sélectionner Windows("Insp_rousSorel.xls:3").Activate ActiveWindow.SmallScroll ToRight:=5 Range("L1").Select Selection.End(xlDown).Select Range(Selection, Selection.End(xlUp)).Select Range(Selection, Selection.End(xlUp)).Select Range(Selection, Selection.End(xlToLeft)).Select With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With Selection.PrintOut Copies:=1, Collate:=True Range("B1").Select End Sub
Fais les manips indiquées (pour répéter une ligne, pour numéroter les pages)
avec l'enregistreur de macros et tu auras une bonne base de départ à arranger
ensuite "à ta sauce".
--
Gaenonius
Non Je m'explique un peu plus,
J'ai plusieurs macro pour imprimer dans mon fichier mais
je veux que dans la macros (qui est dans ma première envoie)
la première ligne (A1 à L1) se répète sur chaque page qui s'imprime et
indique le nombre de page sur chacune. (1de3 ,2de3,3de3).
Merci
"Gaenonius" <noname@nowhere> a écrit dans le message de news:
eyaA5Qd7EHA.2196@TK2MSFTNGP11.phx.gbl...
Pas sûr d'avoir compris, mais dans les options de mise en page
(FichierMise en page), l'onglet Feuille comporte une option Lignes à
répéter en haut qui semble correspondre à ta demande.
--
Gaenonius
Bonjour à Tous
Je voudrait que lorsque s'exécute la macros (suivante) que l'entete A1:L!
se répète sur tout les page.
Parfois il y a une page parfois il y en n'a plusieurs
Merci pour votre aide.
Sub imp_défault()
'
' imp_défault Macro
' pour imprimer les défaut sélectionner
Windows("Insp_rousSorel.xls:3").Activate
ActiveWindow.SmallScroll ToRight:=5
Range("L1").Select
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlToLeft)).Select
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Selection.PrintOut Copies:=1, Collate:=True
Range("B1").Select
End Sub
Fais les manips indiquées (pour répéter une ligne, pour numéroter les pages) avec l'enregistreur de macros et tu auras une bonne base de départ à arranger ensuite "à ta sauce".
-- Gaenonius
Non Je m'explique un peu plus, J'ai plusieurs macro pour imprimer dans mon fichier mais je veux que dans la macros (qui est dans ma première envoie) la première ligne (A1 à L1) se répète sur chaque page qui s'imprime et indique le nombre de page sur chacune. (1de3 ,2de3,3de3). Merci
"Gaenonius" a écrit dans le message de news:
Pas sûr d'avoir compris, mais dans les options de mise en page (FichierMise en page), l'onglet Feuille comporte une option Lignes à répéter en haut qui semble correspondre à ta demande.
-- Gaenonius
Bonjour à Tous
Je voudrait que lorsque s'exécute la macros (suivante) que l'entete A1:L! se répète sur tout les page. Parfois il y a une page parfois il y en n'a plusieurs
Merci pour votre aide.
Sub imp_défault() ' ' imp_défault Macro ' pour imprimer les défaut sélectionner Windows("Insp_rousSorel.xls:3").Activate ActiveWindow.SmallScroll ToRight:=5 Range("L1").Select Selection.End(xlDown).Select Range(Selection, Selection.End(xlUp)).Select Range(Selection, Selection.End(xlUp)).Select Range(Selection, Selection.End(xlToLeft)).Select With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With Selection.PrintOut Copies:=1, Collate:=True Range("B1").Select End Sub
