Impression page

Bonjour, je suis bloqué, j'aimerai imprimer un fichier, et qu'il rentre sur une page entière

Private Sub image7_Click()

ActiveSheet.PrintArea = "A1:Ap86"

End Sub

Comment puis-je faire?

Merci

Bonjour,

Essaye ce code suivant :

Sub Macro1()
    With ActiveSheet.PageSetup
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
End Sub

Merci, mais comment imprimer juste la plage A1:Ap86?

Merci

Re,

Comme ça :

Sub Macro1()
    With ActiveSheet.PageSetup
        .PrintArea = Range("A1:AP86")
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
End Sub

J'espère que tu va pouvoir lire le document imprimé

Bonjour,

merci mais il y a un petit souci, J'ai crée un fichier pour mettre en application, ça ne fonctionne pas

bonjour theguit et raja

et avec ces lignes?

ActiveSheet.PageSetup.PrintArea = "A1:AP86"
ActiveSheet.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut copies:=2

il faut enlever le coche de la dernière ligne pour lancer l'impression et ne pas oublier d'en ajouter une a la ligne supérieure

mais de toute façon la plage a imprimer est trop grande et sera minimiser a l'impression

regarde en bas du post avant de répondre il y a des liens correspondant a ce que tu cherche

Pascal

bonjour, merci c'est top,

Mon problème c'est que j'aimerai que se soit configuré en couleur automatiquement, et centré sur la feuille et surtout en paysage

Ci-joint mon code

Private Sub image7_Click()

ActiveSheet.PageSetup.PrintArea = "A1:AP86"

ActiveSheet.PrintPreview

ActiveWindow.SelectedSheets.PrintOut copies:=2

End Sub

Merci

bonjour theguilt, raja et le forum

rajoute la ligne que raja t'a donné et cela devrai être bon

.Orientation = xlLandscape

Pascal

Slt escuse moi, j'ai pas de Windows sous la main aujourd'hui mais j'avais déjà essayé inséré ta ligne brute comme ça ne fonctionne pas

bonsoir

Sub Macro1()
    With ActiveSheet.PageSetup
        .PrintArea = Range("A1:AP86")
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
ActiveSheet.PrintPreview ' a cocher si plus d'aperçu
'ActiveWindow.SelectedSheets.PrintOut copies:=2 'au choix décocher pour imprimer
End Sub

et comme ceci associé au code de raja

pascal

Bonsoir ce code fonctionne sauf que sur l'aperçu, j'ai toute la feuille et non pas ma sélection, je ne sais pas pourquoi

Sub Macro20()
    With ActiveSheet.PageSetup
        .PrintArea = Range("A1:AP86")
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
ActiveSheet.PrintPreview ' a cocher si plus d'aperçu
'ActiveWindow.SelectedSheets.PrintOut copies:=2 'au choix décocher pour imprimer
End Sub

Merci

bonsoir theguilt

si tu change le chiffre dans cette ligne

.PrintArea = Range("A1:AP86")

au lieu de 86 tu mets ce que tu veux

Pascal

Bonjour, non ça va jusqu'à la fin de mon fichier quand même ( AP151)

Merci

bonsoir theguilt

eh ben la je ne sais plus quoi te dire car je ne vois pas plus, surement quelqu'un de plus aguerri (comme Raja par exemple ) prendra le relais si tu n'est pas trop presser

Pascal