Imprimer en pdf jusaqu'au dernière ligne

Bonjour Forum,

svp ce code de MR ThauTheme ; il fonctionne Bien, Je remercie MR ThauTheme beaucoup .

Sub macro1()

Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim CA As String 'déclare la variable CA (Chemin d'Accès)
Dim F As String 'déclare la variable F (Fichier)
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)

Set CD = ThisWorkbook 'définit le classeur destination CD
Set OD = CD.Worksheets("Data global") 'définit l'onglet destination OD
CA = CD.Path & "\" 'définit le chemin d'accès CA
F = Dir(CA & "export*.xlsx?") 'définit le premier fichier excel F commençant par "export" ayant CA comme chemin d'accès
Do While F <> "" 'exécute tant qu'il existe des fichiers F
    If Not F = CD.Name Then 'si F est différent du nom du fichier destination
        Set CS = Workbooks.Open(CA & F) 'définit le classeur source CS en l'ouvrant
        Set OS = CS.Worksheets("Data") 'définit l'onglet source OS
         'définit la cellule de destination DEST (B15 si B15 est vide sinon la première cellule vide de la colonne B de l'onglet OD)
        Set DEST = IIf(OD.Range("B15").Value = "", OD.Range("B15"), OD.Cells(Application.Rows.Count, "B").End(xlUp).Offset(1, 0))
        OS.Range("B15:AX15").Copy DEST 'copie la plage B15:AX15 de l'onglet source et le colle dans DEST
        CS.Close False 'ferme le classeur source sans enregistrer
        F = Dir 'définit le prochain fichier F commençant par "export" ayant CA comme chemin d'accès
    End If 'fin de la condition
Loop 'boucle
OD.Activate 'active l'onglet OD

End Sub

je cherchre à ajouter un code vba pour imprimer cette feuille "data global" en pdf du B1:AX1 jusaqu'au dernière ligne contient valeur du colonne B

les marges 0 droite et gauche

0,9 haut et bas

avec imprimer en taille réelle

ajuster toutes les colonnes pour faire une page en largeur

et si possible document pdf avec date et heur

et Merci beaucoup.

Bonsoir,

Un essai,

Sub save()
With ActiveSheet.PageSetup
    .LeftHeader = "&D - &T"
    .LeftMargin = Application.InchesToPoints(0)
    .RightMargin = Application.InchesToPoints(0)
    .TopMargin = Application.InchesToPoints(0.3)
    .BottomMargin = Application.InchesToPoints(0.3)
    .HeaderMargin = Application.InchesToPoints(0)
    .Orientation = xlLandscape
End With
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\....\....\....\...." & ".pdf"
End Sub