Userform imprimer et pdf
bonjour a tous
j'ai un bouton "imprimer" 1er page en paysage la 2eme en portrait sur chaque feuil et cela fonction bien.
code
Private Sub CommandButton2_Click()
'Impression de la 1ème page en paysage
'-------------------------------------
Range("A1:W48").Select 'définition de la plage de cellules constituant la 1ème page
ActiveSheet.PageSetup.PrintArea = "$A$1:$W$48" 'définition de la zone d'impression
ActiveSheet.PageSetup.Orientation = xlLandscape 'mise au format paysage
ActiveSheet.PageSetup.CenterHorizontally = True 'centrage horizontal de la feuille
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'impression
'Impression de la 2ème page en portrait
'--------------------------------------
Range("A50:T119").Select 'définition de la plage de cellules constituant la 3ème page
ActiveSheet.PageSetup.PrintArea = "$A$50:$T$119" 'définition de la zone d'impression
ActiveSheet.PageSetup.Orientation = xlPortrait 'mise au format portrait
ActiveSheet.PageSetup.CenterHorizontally = True 'centrage horizontal de la feuille
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'impression
Range("A1").Select
End Sub
j'ai créer un userform pour un impression plus détaillé.
ci joint le fichier exemple
merci de votre aide
comment faire pour sélectionner la Feuil pour que le code ce lance de mon userform sur la feuil désiré
Trouver une parti
Private Sub CommandButton1_Click()
'Impression de la 1ème page en paysage
'-------------------------------------
With Sheets("Choix de la Feuil").Select
Range("A1:W48").Select 'définition de la plage de cellules constituant la 1ème page
ActiveSheet.PageSetup.PrintArea = "$A$2:$W$48" 'définition de la zone d'impression
ActiveSheet.PageSetup.Orientation = xlLandscape 'mise au format paysage
ActiveSheet.PageSetup.CenterHorizontally = True 'centrage horizontal de la feuille
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'impression
End With
'Impression de la 2ème page en portrait
'--------------------------------------
With Sheets("Choix de la Feuil").Select
Range("A50:T119").Select 'définition de la plage de cellules constituant la 3ème page
ActiveSheet.PageSetup.PrintArea = "$A$50:$T$119" 'définition de la zone d'impression
ActiveSheet.PageSetup.Orientation = xlPortrait 'mise au format portrait
ActiveSheet.PageSetup.CenterHorizontally = True 'centrage horizontal de la feuille
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'impression
End With
Range("A1").Select
End Sub
il ne me reste qu'a trouver le moyen de mettre en fil d'attente(la1er page) pour avoir 2 pages sur 1 seul fichier PDF
Une personne sur un autre forum a trouver la solution (voir fichier joint)
qui peu m'aider a faire (avec ce même code) imprimer en 1 seule fichier PDF