Sayın berduş çok teşekkür ederim. 40 sayfa dijital olarak gönderdim. Sorunsuz bir şekilde çalışıyor. İlk verdiğiniz kod ne için onu anlayamadım. 
With TmpSHdf.PageSetup
    .Orientation = xlPortrait
    .Zoom = False
    .FitToPagesTall = False
    .FitToPagesWide = 1

End With
(Bu bölüm ) emeğiniz çok geçti teşekkür ederim. Ellerinz dert görmesin.
Sayın feraz a da eklemiş olduğu eğitim video su için teşekkür ederim. Önizlemeden baktım, yazdır bölümündeki son yazdırma ayarları ve alt üst boşluklar hepsini yaptım. Normal a4 kağıda çıktı alıyordum. Pdf olarak yazdırmada sorunum vardı. 5 bin  6. bin sayfalık tek bir pdf yapmayı düşünüyorum. İnşallah hatasız hallederim. Son berduş bey'in attığı kod ile neticelendirdim. İnşallah sorunsuz kaydetmeyi başarırım.