J'ai une macro pour imprimer , mais selon le moment de sélection,
il y a plusieurs pages et cela me va mais,
je voudrait avoir comme entête les cellules A1:L1 sur chaque page, avec le
nombre de page sur le total de page. ( 1de 2 ).
Comment inscrire cela a ma macro?
Merci
Sub imp_défault()
'
' imp_défault Macro
' Macro recorded 2003/09/06 by pellet15
' pour imprimer les défaut sélectionner
Windows("Insp_Turcot.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
Pierre Fauconnier
Bonjour
Il faut adapter la ligne .PrintTitleRows
.PrintTitleRows = "$1:$1"
-- Cela convient-il? ---- Pierre Fauconnier "Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre en mon nom." (Le Chat...) (remplacer NOSPAM par pfi.be pour me répondre. Merci)
--- Daniel wrote:
Bonsoir
J'ai une macro pour imprimer , mais selon le moment de sélection, il y a plusieurs pages et cela me va mais, je voudrait avoir comme entête les cellules A1:L1 sur chaque page, avec le nombre de page sur le total de page. ( 1de 2 ). Comment inscrire cela a ma macro?
Merci
Sub imp_défault() ' ' imp_défault Macro ' Macro recorded 2003/09/06 by pellet15 ' pour imprimer les défaut sélectionner Windows("Insp_Turcot.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
Bonjour
Il faut adapter la ligne .PrintTitleRows
.PrintTitleRows = "$1:$1"
--
Cela convient-il?
----
Pierre Fauconnier
"Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre
en mon nom." (Le Chat...)
(remplacer NOSPAM par pfi.be pour me répondre. Merci)
---
Daniel wrote:
Bonsoir
J'ai une macro pour imprimer , mais selon le moment de sélection,
il y a plusieurs pages et cela me va mais,
je voudrait avoir comme entête les cellules A1:L1 sur chaque page,
avec le nombre de page sur le total de page. ( 1de 2 ).
Comment inscrire cela a ma macro?
Merci
Sub imp_défault()
'
' imp_défault Macro
' Macro recorded 2003/09/06 by pellet15
' pour imprimer les défaut sélectionner
Windows("Insp_Turcot.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
-- Cela convient-il? ---- Pierre Fauconnier "Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre en mon nom." (Le Chat...) (remplacer NOSPAM par pfi.be pour me répondre. Merci)
--- Daniel wrote:
Bonsoir
J'ai une macro pour imprimer , mais selon le moment de sélection, il y a plusieurs pages et cela me va mais, je voudrait avoir comme entête les cellules A1:L1 sur chaque page, avec le nombre de page sur le total de page. ( 1de 2 ). Comment inscrire cela a ma macro?
Merci
Sub imp_défault() ' ' imp_défault Macro ' Macro recorded 2003/09/06 by pellet15 ' pour imprimer les défaut sélectionner Windows("Insp_Turcot.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
papou
Bonjour Et pour compléter la réponse de Pierre qui a dû "zapper" sur la deuxième question : .CenterFooter = "Page &P de &N" (éventuellement à adapter avec .LeftFooter ou .RightFooter) Cordialement Pascal
"Pierre Fauconnier" a écrit dans le message de news:%23C7$
Bonjour
Il faut adapter la ligne .PrintTitleRows
.PrintTitleRows = "$1:$1"
-- Cela convient-il? ---- Pierre Fauconnier "Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre
en mon nom." (Le Chat...) (remplacer NOSPAM par pfi.be pour me répondre. Merci)
--- Daniel wrote:
Bonsoir
J'ai une macro pour imprimer , mais selon le moment de sélection, il y a plusieurs pages et cela me va mais, je voudrait avoir comme entête les cellules A1:L1 sur chaque page, avec le nombre de page sur le total de page. ( 1de 2 ). Comment inscrire cela a ma macro?
Merci
Sub imp_défault() ' ' imp_défault Macro ' Macro recorded 2003/09/06 by pellet15 ' pour imprimer les défaut sélectionner Windows("Insp_Turcot.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
Bonjour
Et pour compléter la réponse de Pierre qui a dû "zapper" sur la deuxième
question :
.CenterFooter = "Page &P de &N"
(éventuellement à adapter avec .LeftFooter ou .RightFooter)
Cordialement
Pascal
"Pierre Fauconnier" <pierre.fauconnier@NOSPAM> a écrit dans le message de
news:%23C7$12cfEHA.2896@TK2MSFTNGP11.phx.gbl...
Bonjour
Il faut adapter la ligne .PrintTitleRows
.PrintTitleRows = "$1:$1"
--
Cela convient-il?
----
Pierre Fauconnier
"Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se
battre
en mon nom." (Le Chat...)
(remplacer NOSPAM par pfi.be pour me répondre. Merci)
---
Daniel wrote:
Bonsoir
J'ai une macro pour imprimer , mais selon le moment de sélection,
il y a plusieurs pages et cela me va mais,
je voudrait avoir comme entête les cellules A1:L1 sur chaque page,
avec le nombre de page sur le total de page. ( 1de 2 ).
Comment inscrire cela a ma macro?
Merci
Sub imp_défault()
'
' imp_défault Macro
' Macro recorded 2003/09/06 by pellet15
' pour imprimer les défaut sélectionner
Windows("Insp_Turcot.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
Bonjour Et pour compléter la réponse de Pierre qui a dû "zapper" sur la deuxième question : .CenterFooter = "Page &P de &N" (éventuellement à adapter avec .LeftFooter ou .RightFooter) Cordialement Pascal
"Pierre Fauconnier" a écrit dans le message de news:%23C7$
Bonjour
Il faut adapter la ligne .PrintTitleRows
.PrintTitleRows = "$1:$1"
-- Cela convient-il? ---- Pierre Fauconnier "Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre
en mon nom." (Le Chat...) (remplacer NOSPAM par pfi.be pour me répondre. Merci)
--- Daniel wrote:
Bonsoir
J'ai une macro pour imprimer , mais selon le moment de sélection, il y a plusieurs pages et cela me va mais, je voudrait avoir comme entête les cellules A1:L1 sur chaque page, avec le nombre de page sur le total de page. ( 1de 2 ). Comment inscrire cela a ma macro?
Merci
Sub imp_défault() ' ' imp_défault Macro ' Macro recorded 2003/09/06 by pellet15 ' pour imprimer les défaut sélectionner Windows("Insp_Turcot.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
Pierre Fauconnier
Salut Pascal,
J'avais effectivement oublié le second volet de la question... Merci d'avoir complété...
-- Pierre Fauconnier "C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..." (Le Chat de Geluck (enfin, je crois...)) (remplacer NOSPAM par pfi.be pour me répondre. Merci)
--- papou wrote:
Bonjour Et pour compléter la réponse de Pierre qui a dû "zapper" sur la deuxième question : .CenterFooter = "Page &P de &N" (éventuellement à adapter avec .LeftFooter ou .RightFooter) Cordialement Pascal
"Pierre Fauconnier" a écrit dans le message de news:%23C7$
Bonjour
Il faut adapter la ligne .PrintTitleRows
.PrintTitleRows = "$1:$1"
-- Cela convient-il? ---- Pierre Fauconnier "Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre en mon nom." (Le Chat...) (remplacer NOSPAM par pfi.be pour me répondre. Merci)
--- Daniel wrote:
Bonsoir
J'ai une macro pour imprimer , mais selon le moment de sélection, il y a plusieurs pages et cela me va mais, je voudrait avoir comme entête les cellules A1:L1 sur chaque page, avec le nombre de page sur le total de page. ( 1de 2 ). Comment inscrire cela a ma macro?
Merci
Sub imp_défault() ' ' imp_défault Macro ' Macro recorded 2003/09/06 by pellet15 ' pour imprimer les défaut sélectionner Windows("Insp_Turcot.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
Salut Pascal,
J'avais effectivement oublié le second volet de la question... Merci d'avoir
complété...
--
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..." (Le Chat de
Geluck (enfin, je crois...))
(remplacer NOSPAM par pfi.be pour me répondre. Merci)
---
papou wrote:
Bonjour
Et pour compléter la réponse de Pierre qui a dû "zapper" sur la
deuxième question :
.CenterFooter = "Page &P de &N"
(éventuellement à adapter avec .LeftFooter ou .RightFooter)
Cordialement
Pascal
"Pierre Fauconnier" <pierre.fauconnier@NOSPAM> a écrit dans le
message de news:%23C7$12cfEHA.2896@TK2MSFTNGP11.phx.gbl...
Bonjour
Il faut adapter la ligne .PrintTitleRows
.PrintTitleRows = "$1:$1"
--
Cela convient-il?
----
Pierre Fauconnier
"Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de
se battre en mon nom." (Le Chat...)
(remplacer NOSPAM par pfi.be pour me répondre. Merci)
---
Daniel wrote:
Bonsoir
J'ai une macro pour imprimer , mais selon le moment de sélection,
il y a plusieurs pages et cela me va mais,
je voudrait avoir comme entête les cellules A1:L1 sur chaque page,
avec le nombre de page sur le total de page. ( 1de 2 ).
Comment inscrire cela a ma macro?
Merci
Sub imp_défault()
'
' imp_défault Macro
' Macro recorded 2003/09/06 by pellet15
' pour imprimer les défaut sélectionner
Windows("Insp_Turcot.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
J'avais effectivement oublié le second volet de la question... Merci d'avoir complété...
-- Pierre Fauconnier "C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..." (Le Chat de Geluck (enfin, je crois...)) (remplacer NOSPAM par pfi.be pour me répondre. Merci)
--- papou wrote:
Bonjour Et pour compléter la réponse de Pierre qui a dû "zapper" sur la deuxième question : .CenterFooter = "Page &P de &N" (éventuellement à adapter avec .LeftFooter ou .RightFooter) Cordialement Pascal
"Pierre Fauconnier" a écrit dans le message de news:%23C7$
Bonjour
Il faut adapter la ligne .PrintTitleRows
.PrintTitleRows = "$1:$1"
-- Cela convient-il? ---- Pierre Fauconnier "Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre en mon nom." (Le Chat...) (remplacer NOSPAM par pfi.be pour me répondre. Merci)
--- Daniel wrote:
Bonsoir
J'ai une macro pour imprimer , mais selon le moment de sélection, il y a plusieurs pages et cela me va mais, je voudrait avoir comme entête les cellules A1:L1 sur chaque page, avec le nombre de page sur le total de page. ( 1de 2 ). Comment inscrire cela a ma macro?
Merci
Sub imp_défault() ' ' imp_défault Macro ' Macro recorded 2003/09/06 by pellet15 ' pour imprimer les défaut sélectionner Windows("Insp_Turcot.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
Bonsoir à tous
merci tous va bien MERCI :-)))
"Daniel" a écrit dans le message de news:ErCRc.15850$
Bonsoir
J'ai une macro pour imprimer , mais selon le moment de sélection, il y a plusieurs pages et cela me va mais, je voudrait avoir comme entête les cellules A1:L1 sur chaque page, avec le
nombre de page sur le total de page. ( 1de 2 ). Comment inscrire cela a ma macro?
Merci
Sub imp_défault() ' ' imp_défault Macro ' Macro recorded 2003/09/06 by pellet15 ' pour imprimer les défaut sélectionner Windows("Insp_Turcot.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
Bonsoir à tous
merci tous va bien MERCI :-)))
"Daniel" <pellet15@videotron.ca> a écrit dans le message de
news:ErCRc.15850$Xc5.513242@weber.videotron.net...
Bonsoir
J'ai une macro pour imprimer , mais selon le moment de sélection,
il y a plusieurs pages et cela me va mais,
je voudrait avoir comme entête les cellules A1:L1 sur chaque page, avec
le
nombre de page sur le total de page. ( 1de 2 ).
Comment inscrire cela a ma macro?
Merci
Sub imp_défault()
'
' imp_défault Macro
' Macro recorded 2003/09/06 by pellet15
' pour imprimer les défaut sélectionner
Windows("Insp_Turcot.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" a écrit dans le message de news:ErCRc.15850$
Bonsoir
J'ai une macro pour imprimer , mais selon le moment de sélection, il y a plusieurs pages et cela me va mais, je voudrait avoir comme entête les cellules A1:L1 sur chaque page, avec le
nombre de page sur le total de page. ( 1de 2 ). Comment inscrire cela a ma macro?
Merci
Sub imp_défault() ' ' imp_défault Macro ' Macro recorded 2003/09/06 by pellet15 ' pour imprimer les défaut sélectionner Windows("Insp_Turcot.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
