(17/02/2020, 20:57)yyhy yazdı: İlk verdiğiniz kod ne için onu anlayamadım. 
With TmpSHdf.PageSetup
    .Orientation = xlPortrait
    .Zoom = False
    .FitToPagesTall = False
    .FitToPagesWide = 1

End With

Ekledigim kısmın bu olduğunu göstermek için ayrı yazdım. Zaten asıl kodun içinde var.