imprimer en démarrant avec le N° de page de son choix
2 réponses
Dan63
Bonjour,
Je me bats avec le problème suivant :
Ayant, dans un classeur, imprimé 3 pages d'une "Feuille1", numérotées de 1 à
3 comme il se doit, je souhaiterais imprimer d'autres pages à partir de la
"Feuille2" en continuant la numérotation à partir de 4 (et éventuellement
continuer le processus avec d'autres feuilles du même classeur.
Cela est-il possible ?
Et si oui, pouvez-vous me donner la solution ?
Merci pour l'attention accordée à me lire et ... peut-être ;o) pour la
solution proposée.
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
Damien Kergosien
Bonjour Dan63
Option Explicit
Sub Pagination() Dim premièrePage As Integer Dim valeurEntrée As Integer Dim chaiNe As String
valeurEntrée = InputBox("Numéro à donner à la première page") premièrePage = valeurEntrée - 1 chaiNe = "&P+" & premièrePage & " " With ActiveSheet.PageSetup .RightHeader = chaiNe End With ActiveSheet.PrintPreview End Sub Damien
Bonjour,
Je me bats avec le problème suivant : Ayant, dans un classeur, imprimé 3 pages d'une "Feuille1", numérotées de 1 à 3 comme il se doit, je souhaiterais imprimer d'autres pages à partir de la "Feuille2" en continuant la numérotation à partir de 4 (et éventuellement continuer le processus avec d'autres feuilles du même classeur. Cela est-il possible ? Et si oui, pouvez-vous me donner la solution ? Merci pour l'attention accordée à me lire et ... peut-être ;o) pour la solution proposée.
Cordialement,
Bonjour Dan63
Option Explicit
Sub Pagination()
Dim premièrePage As Integer
Dim valeurEntrée As Integer
Dim chaiNe As String
valeurEntrée = InputBox("Numéro à donner à la première page")
premièrePage = valeurEntrée - 1
chaiNe = "&P+" & premièrePage & " "
With ActiveSheet.PageSetup
.RightHeader = chaiNe
End With
ActiveSheet.PrintPreview
End Sub
Damien
Bonjour,
Je me bats avec le problème suivant :
Ayant, dans un classeur, imprimé 3 pages d'une "Feuille1", numérotées de 1 à
3 comme il se doit, je souhaiterais imprimer d'autres pages à partir de la
"Feuille2" en continuant la numérotation à partir de 4 (et éventuellement
continuer le processus avec d'autres feuilles du même classeur.
Cela est-il possible ?
Et si oui, pouvez-vous me donner la solution ?
Merci pour l'attention accordée à me lire et ... peut-être ;o) pour la
solution proposée.
Sub Pagination() Dim premièrePage As Integer Dim valeurEntrée As Integer Dim chaiNe As String
valeurEntrée = InputBox("Numéro à donner à la première page") premièrePage = valeurEntrée - 1 chaiNe = "&P+" & premièrePage & " " With ActiveSheet.PageSetup .RightHeader = chaiNe End With ActiveSheet.PrintPreview End Sub Damien
Bonjour,
Je me bats avec le problème suivant : Ayant, dans un classeur, imprimé 3 pages d'une "Feuille1", numérotées de 1 à 3 comme il se doit, je souhaiterais imprimer d'autres pages à partir de la "Feuille2" en continuant la numérotation à partir de 4 (et éventuellement continuer le processus avec d'autres feuilles du même classeur. Cela est-il possible ? Et si oui, pouvez-vous me donner la solution ? Merci pour l'attention accordée à me lire et ... peut-être ;o) pour la solution proposée.
Cordialement,
dre
Salut,
Il me semble qu'il suffit de sélectionner les onglets des pages à imprimer avant de lancer l'impression pour que les numéros de pages s'incrémentent. S'il faut 3 impressions, demander 3 copies dans la boîte de dialogue de l'impression.
Â+
Bonjour,
Je me bats avec le problème suivant : Ayant, dans un classeur, imprimé 3 pages d'une "Feuille1", numérotées de 1 à 3 comme il se doit, je souhaiterais imprimer d'autres pages à partir de la "Feuille2" en continuant la numérotation à partir de 4 (et éventuellement continuer le processus avec d'autres feuilles du même classeur. Cela est-il possible ? Et si oui, pouvez-vous me donner la solution ? Merci pour l'attention accordée à me lire et ... peut-être ;o) pour la solution proposée.
Cordialement,
Salut,
Il me semble qu'il suffit de sélectionner les onglets des pages à imprimer
avant de lancer l'impression pour que les numéros de pages s'incrémentent.
S'il faut 3 impressions, demander 3 copies dans la boîte de dialogue de
l'impression.
Â+
Bonjour,
Je me bats avec le problème suivant :
Ayant, dans un classeur, imprimé 3 pages d'une "Feuille1", numérotées de 1 à
3 comme il se doit, je souhaiterais imprimer d'autres pages à partir de la
"Feuille2" en continuant la numérotation à partir de 4 (et éventuellement
continuer le processus avec d'autres feuilles du même classeur.
Cela est-il possible ?
Et si oui, pouvez-vous me donner la solution ?
Merci pour l'attention accordée à me lire et ... peut-être ;o) pour la
solution proposée.
Il me semble qu'il suffit de sélectionner les onglets des pages à imprimer avant de lancer l'impression pour que les numéros de pages s'incrémentent. S'il faut 3 impressions, demander 3 copies dans la boîte de dialogue de l'impression.
Â+
Bonjour,
Je me bats avec le problème suivant : Ayant, dans un classeur, imprimé 3 pages d'une "Feuille1", numérotées de 1 à 3 comme il se doit, je souhaiterais imprimer d'autres pages à partir de la "Feuille2" en continuant la numérotation à partir de 4 (et éventuellement continuer le processus avec d'autres feuilles du même classeur. Cela est-il possible ? Et si oui, pouvez-vous me donner la solution ? Merci pour l'attention accordée à me lire et ... peut-être ;o) pour la solution proposée.
