voici ma macro pour imprimer un document. la zone d'impression se défini
bien mais l'option 1 page sur 1 ne marche pas, il m'imprime plusieurs pages.
Pourtant cette macro marchait avant, je ne comprends ce qui ne va pas dans
le code.
qqu'un aurait il une idée de quoi cela pourrai provenir ??
merci
code :
Private Sub CommandButton2_Click()
With Worksheets("farce essai").PageSetup
.CenterHorizontally = True
.PrintArea = "$A$1:print2"
.PrintTitleRows = ("$A$1:$g$5")
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Worksheets("farce essai").PrintOut
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
michdenis
Adapte le nom de la feuille de cette procédure et vérifie si tu ou quelqu'un d'autre n'aurait pas insérer des sauts de page :
Sub test()
Dim Sv As VPageBreak Dim SH As HPageBreak
With Feuil1 For Each Sv In .VPageBreaks 'où sont tes sauts de page verticaux MsgBox Sv.Location.Address Next For Each SH In .HPageBreaks 'où sont tes sauts de page horizontaux MsgBox SH.Location.Address Next End With
End Sub
"FabriceR" a écrit dans le message de groupe de discussion : # Bonjour,
voici ma macro pour imprimer un document. la zone d'impression se défini bien mais l'option 1 page sur 1 ne marche pas, il m'imprime plusieurs pages. Pourtant cette macro marchait avant, je ne comprends ce qui ne va pas dans le code. qqu'un aurait il une idée de quoi cela pourrai provenir ?? merci
code : Private Sub CommandButton2_Click() With Worksheets("farce essai").PageSetup .CenterHorizontally = True .PrintArea = "$A$1:print2" .PrintTitleRows = ("$A$1:$g$5") .Orientation = xlPortrait .FitToPagesWide = 1 .FitToPagesTall = 1 End With Worksheets("farce essai").PrintOut
Unload UserForm1 End Sub
Adapte le nom de la feuille de cette procédure
et vérifie si tu ou quelqu'un d'autre n'aurait pas
insérer des sauts de page :
Sub test()
Dim Sv As VPageBreak
Dim SH As HPageBreak
With Feuil1
For Each Sv In .VPageBreaks
'où sont tes sauts de page verticaux
MsgBox Sv.Location.Address
Next
For Each SH In .HPageBreaks
'où sont tes sauts de page horizontaux
MsgBox SH.Location.Address
Next
End With
End Sub
"FabriceR" <fab.rousseau39asuppr@yahoo.fr> a écrit dans le message de groupe de discussion
: #jDuqo5fJHA.552@TK2MSFTNGP04.phx.gbl...
Bonjour,
voici ma macro pour imprimer un document. la zone d'impression se défini
bien mais l'option 1 page sur 1 ne marche pas, il m'imprime plusieurs pages.
Pourtant cette macro marchait avant, je ne comprends ce qui ne va pas dans
le code.
qqu'un aurait il une idée de quoi cela pourrai provenir ??
merci
code :
Private Sub CommandButton2_Click()
With Worksheets("farce essai").PageSetup
.CenterHorizontally = True
.PrintArea = "$A$1:print2"
.PrintTitleRows = ("$A$1:$g$5")
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Worksheets("farce essai").PrintOut
Adapte le nom de la feuille de cette procédure et vérifie si tu ou quelqu'un d'autre n'aurait pas insérer des sauts de page :
Sub test()
Dim Sv As VPageBreak Dim SH As HPageBreak
With Feuil1 For Each Sv In .VPageBreaks 'où sont tes sauts de page verticaux MsgBox Sv.Location.Address Next For Each SH In .HPageBreaks 'où sont tes sauts de page horizontaux MsgBox SH.Location.Address Next End With
End Sub
"FabriceR" a écrit dans le message de groupe de discussion : # Bonjour,
voici ma macro pour imprimer un document. la zone d'impression se défini bien mais l'option 1 page sur 1 ne marche pas, il m'imprime plusieurs pages. Pourtant cette macro marchait avant, je ne comprends ce qui ne va pas dans le code. qqu'un aurait il une idée de quoi cela pourrai provenir ?? merci
code : Private Sub CommandButton2_Click() With Worksheets("farce essai").PageSetup .CenterHorizontally = True .PrintArea = "$A$1:print2" .PrintTitleRows = ("$A$1:$g$5") .Orientation = xlPortrait .FitToPagesWide = 1 .FitToPagesTall = 1 End With Worksheets("farce essai").PrintOut
Unload UserForm1 End Sub
FabriceR
Merci apparement c'etait bien des sauts page qui avaient été rajouté.
Merci bcp
"michdenis" a écrit dans le message de news:
Adapte le nom de la feuille de cette procédure et vérifie si tu ou quelqu'un d'autre n'aurait pas insérer des sauts de page :
Sub test()
Dim Sv As VPageBreak Dim SH As HPageBreak
With Feuil1 For Each Sv In .VPageBreaks 'où sont tes sauts de page verticaux MsgBox Sv.Location.Address Next For Each SH In .HPageBreaks 'où sont tes sauts de page horizontaux MsgBox SH.Location.Address Next End With
End Sub
"FabriceR" a écrit dans le message de groupe de discussion : # Bonjour,
voici ma macro pour imprimer un document. la zone d'impression se défini bien mais l'option 1 page sur 1 ne marche pas, il m'imprime plusieurs pages. Pourtant cette macro marchait avant, je ne comprends ce qui ne va pas dans le code. qqu'un aurait il une idée de quoi cela pourrai provenir ?? merci
code : Private Sub CommandButton2_Click() With Worksheets("farce essai").PageSetup .CenterHorizontally = True .PrintArea = "$A$1:print2" .PrintTitleRows = ("$A$1:$g$5") .Orientation = xlPortrait .FitToPagesWide = 1 .FitToPagesTall = 1 End With Worksheets("farce essai").PrintOut
Unload UserForm1 End Sub
Merci
apparement c'etait bien des sauts page qui avaient été rajouté.
Merci bcp
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
3175D9BF-8CFE-434A-B322-85860F8404BF@microsoft.com...
Adapte le nom de la feuille de cette procédure
et vérifie si tu ou quelqu'un d'autre n'aurait pas
insérer des sauts de page :
Sub test()
Dim Sv As VPageBreak
Dim SH As HPageBreak
With Feuil1
For Each Sv In .VPageBreaks
'où sont tes sauts de page verticaux
MsgBox Sv.Location.Address
Next
For Each SH In .HPageBreaks
'où sont tes sauts de page horizontaux
MsgBox SH.Location.Address
Next
End With
End Sub
"FabriceR" <fab.rousseau39asuppr@yahoo.fr> a écrit dans le message de
groupe de discussion
: #jDuqo5fJHA.552@TK2MSFTNGP04.phx.gbl...
Bonjour,
voici ma macro pour imprimer un document. la zone d'impression se défini
bien mais l'option 1 page sur 1 ne marche pas, il m'imprime plusieurs
pages.
Pourtant cette macro marchait avant, je ne comprends ce qui ne va pas dans
le code.
qqu'un aurait il une idée de quoi cela pourrai provenir ??
merci
code :
Private Sub CommandButton2_Click()
With Worksheets("farce essai").PageSetup
.CenterHorizontally = True
.PrintArea = "$A$1:print2"
.PrintTitleRows = ("$A$1:$g$5")
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Worksheets("farce essai").PrintOut
Merci apparement c'etait bien des sauts page qui avaient été rajouté.
Merci bcp
"michdenis" a écrit dans le message de news:
Adapte le nom de la feuille de cette procédure et vérifie si tu ou quelqu'un d'autre n'aurait pas insérer des sauts de page :
Sub test()
Dim Sv As VPageBreak Dim SH As HPageBreak
With Feuil1 For Each Sv In .VPageBreaks 'où sont tes sauts de page verticaux MsgBox Sv.Location.Address Next For Each SH In .HPageBreaks 'où sont tes sauts de page horizontaux MsgBox SH.Location.Address Next End With
End Sub
"FabriceR" a écrit dans le message de groupe de discussion : # Bonjour,
voici ma macro pour imprimer un document. la zone d'impression se défini bien mais l'option 1 page sur 1 ne marche pas, il m'imprime plusieurs pages. Pourtant cette macro marchait avant, je ne comprends ce qui ne va pas dans le code. qqu'un aurait il une idée de quoi cela pourrai provenir ?? merci
code : Private Sub CommandButton2_Click() With Worksheets("farce essai").PageSetup .CenterHorizontally = True .PrintArea = "$A$1:print2" .PrintTitleRows = ("$A$1:$g$5") .Orientation = xlPortrait .FitToPagesWide = 1 .FitToPagesTall = 1 End With Worksheets("farce essai").PrintOut