macro impression paysage

[Arnaud5962]

Bonjour,
Je cherche une macro qui me permettrait d'imprimer uniquement la premiére page de mon document, en paysage.
merci d'avance

 

[Hippolite]

Re : macro impression paysage

Bonjour,
Tu as facilement le code avec l'enregistreur de macros

Sub Imprim1()
    ActiveSheet.PageSetup.Orientation = xlLandscape
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1
End Sub

à personnaliser en fonction de la première feuille
A+

 

[Arnaud5962]

Re : macro impression paysage

Non avec l'enregistreur ça ne fonctionnait pas, mais ta macro fonctionne.
merci

 

[Arnaud5962]

Re : macro impression paysage

J'ai un soucis avec ma macro, ma macro imprime bien la premiére page mais parfois le document s'étale sur deux pages, il me manque donc une partie de mon document.ma macro est donc incompléte.
Merci d'avance

 

[Hippolite]

Re : macro impression paysage

Bonjour,
Tu veux imprimer la première page ou la première feuille ?
a+

 

[Arnaud5962]

Re : macro impression paysage

je veux imprimer la premiére page, le probléme c'est que parfois elle s'étend sur deux pages, dans ce cas je veux les deux pages

 

[Hippolite]

Re : macro impression paysage

Re,
essaie

With ActiveSheet.PageSetup
    .CenterHorizontally = False    ' à adapter
    .CenterVertically = False      ' à adapter
    .Orientation = xlLandscape
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With

A+

 

[Arnaud5962]

Re : macro impression paysage

Je viens d'essayer mais ça ne fonctionne pas...

 

[Hippolite]

Re : macro impression paysage

Re,
Joins un fichier qui présente le problème, en colorant ce qui doit être imprimé, pour que je puisse comprendre
A+

 

[Arnaud5962]

Re : macro impression paysage

bonjour, alors j'ai fait un fichier bidon, je voudrais que ma macro imprime les pages uniquement des colonnes A à K même si elle s'étendent sur deux pages. par contre je ne veux pas ce qui est après la colonne K
merci d'avance

 

[Hippolite]

Re : macro impression paysage

Bonjour,

Sub Imprim()
    Feuil1.PageSetup.Orientation = xlLandscape
    Feuil1.Columns("A:K").PrintOut Copies:=1
End Sub

A+

 

[Arnaud5962]

Re : macro impression paysage

Enfaite la macro ne fonctionne pas, elle n'imprime pas les deux pages comme je le voudrais :s