Impression Paysage

[Ilino]

Bonsoir Forum & BON WEEK END
J’ai une macro qui fait enregistrée une copie d’une feuille (modèle) elle a une mise en page Paysage mais les copies lors de l’impression elles ont une mise en page portrait
Peut-on avoir un help ?

Private Sub CommandButton1_Click()
Dim i As Integer
UserForm2.Hide
With ListBox1
  For i = 0 To .ListCount - 1
    If .Selected(i) Then Sheets(.List(i)).PrintOut 'Preview:=True
  Next
End With
UserForm2.Show
End Sub

merci

 

[Ilino]

Re : Impression Paysage

RE
Je vous rattache la fonction dans un module que j'ai utilisée pour créer une copie

Sub Construit()

Application.ScreenUpdating = False
finLg = Range("N°BE!A65536").End(xlUp).Row
num = Val(Range("N°BE!A" & finLg)) + 1
Sheets.Add Before:=Sheets("Bordereau d'Envoi")
Sheets("Bordereau d'Envoi").Cells.Copy

With ActiveSheet
  .Paste
  .Name = "BE_N° " & Range("I5") & "_" & Range("I4")
  .Range("C4") = "Bordereau d'Envoi N°  " & Feuil1.Range("I5").Value & _
    " de l'année " & Feuil1.Range("I4").Value
  .Range("B7").Value = Sheets("Bordereau d'Envoi").TextBox1.Value & "         " '& Sheets("Rapport Activités").Label1.Caption
  '.Range("C4") = Feuil1.Range("E3").Value
  '.Range("I:AC").Delete
  .Range("F1").Select
End With

Sheets("Bordereau d'Envoi").Select ' remise à zero le tableau
Dim cel As Range
    For Each cel In Range("A7")
        cel.Value = ""
    Next cel
    For Each cel In Range("A11:A29")
        cel.Value = ""
    Next cel
    For Each cel In Range("B11:B29")
        cel.Value = ""
    Next cel
    For Each cel In Range("C11:C29")
        cel.Value = ""
    Next cel
    For Each cel In Range("D11:D29")
        cel.Value = ""
    Next cel
    For Each cel In Range("E11:E29")
        cel.Value = ""
    Next cel
    For Each cel In Range("F11:F29")
        cel.Value = ""
    Next cel
    For Each cel In Range("G11:G29")
        cel.Value = ""
    Next cel
Range("F1").Select

Application.ScreenUpdating = True

Range("N°BE!A" & finLg + 1) = num 'remplissage du tableau de la feuil SOMMAIRE
Range("N°BE!B" & finLg + 1) = Date
Range("N°BE!C" & finLg + 1) = Time

End Sub

ou dois je mettre cette commande : Orientation = xlLandscape
merci

 

[Yaloo]

Re : Impression Paysage

Bonsoir Ilino,

ActiveSheet.PageSetup.Orientation = xlLandscape

Ceci juste avant ton impression.

Peut être, vu ta macro, plutôt quelque chose comme ça (pas testé):

If .Selected(i) Then Sheet(i).PageSetup.Orientation = xlLandscape : Sheets(.List(i)).PrintOut

A+

Martial

 

[Ilino]

Re : Impression Paysage

Bonsoir Martial
merci pour la réponse mais ça n'a pas marché
🙁
A+

 

[Yaloo]

Re : Impression Paysage

Re,

Qu'est-ce qui n'a pas marché ? Message d'erreur ? Impression en portrait ?

Martial

 

[Ilino]

Re : Impression Paysage

RE Martial

Re,

Impression en portrait ?

Martial

 

[Yaloo]

Re : Impression Paysage

Re,

C'est peut être normal, je me suis un peu précipité, essaie avec ça

If .Selected(i) Then Sheets(.List(i)).PageSetup.Orientation = xlLandscape : Sheets(.List(i)).PrintOut

Martial

 

[Ilino]

Re : Impression Paysage

Re
merci MARTIAL mnt ça fonction tres bien
mais j'ai autre remarque pourquoi le logo dans les feuilles copiées n'est pas centralisé ??
merci

 

[Yaloo]

Re : Impression Paysage

Re,

Tout dépend comment tu le mets. Est-il dans ta feuille ou dans une entête ? As-tu vérifié tes marges ? As-tu vérifié l'option centrée horizontalement dans la mise en page ?

 

[Ilino]

Re : Impression Paysage

Re,

As-tu vérifié l'option centrée horizontalement dans la mise en page ?

MERCI C'etait ça
merci et bon week end