aslında normal Excel sayfasında bile sayfa genişliğiniz sınırı geçiyor o nedenle fazladan düzenlemeye ihtiyaç duyuluyor.
(tek tek yazdırırken neden sorun çıkarmıyor bilmiyorum belki de tek sayfalar için standart şablonu vardır)
eklediğim kodlar genel olarak sayfa düzenlemeye yönelik
ayrıca 01 sayfasındaki satır sayısını önceden 55 iken şimdi 58 dolayısıyla 01 adlı sayfada yapacağınız her değişiklik - sütun genişlikleri, satır yükseklikler yada sayfadaki hücre sayısı - yeni sorunlar çıkarabilir ince ayar gerekebilir

With TmpSHdf.PageSetup

    .Orientation = xlPortrait

    .Zoom = False

    .FitToPagesTall = False

    .FitToPagesWide = 1

End With

tümünü tek dosyaya yazdırma kodu:

Sub otoTopluPDF()

Baslik$ = "Yazdır."

Mesaj$ = "Belirlenen sayıya kadar yazdırılacak, Onaylıyormusunuz?"

cevap$ = MsgBox(Mesaj$, 4 + 32 + 0, Baslik$)

If cevap$ = 6 Then

Dim ilk As Integer

Dim son As Integer

Dim SonStr, SyfStr As Long

Dim S1 As Worksheet

Dim S2 As Worksheet

Dim TmpSHdf As Worksheet



Set S1 = Sheets("Sorgu")

Set S2 = Sheets("01")

SyfStr = 58 ' bu sayı bir sayfa kaç satırdan oluşuyor onu belirtir, değerini siz belirlersiniz

'hy______________________________________

Application.ScreenUpdating = False

On Error GoTo ErrorHandler:

ThisWorkbook.Worksheets.Add.Name = "TmpSHdf"

Set TmpSHdf = Sheets("TmpSHdf")

ilk = S1.Range("E11").Value

son = S1.Range("J11").Value

SonStr = 0



For i = ilk To son

    S1.Range("E3").Value = i

    S2.Range("A1:BB58").Copy

    TmpSHdf.Range("A" & SonStr * SyfStr + 1).PasteSpecial xlPasteFormats

    TmpSHdf.Range("A" & SonStr * SyfStr + 1).PasteSpecial xlPasteValuesAndNumberFormats

    SonStr = SonStr + 1

Next

S2.Range("A1:BB58").Copy

TmpSHdf.Range("A" & SonStr * SyfStr + 1).PasteSpecial xlPasteColumnWidths



With TmpSHdf.PageSetup

.Orientation = xlPortrait

.Zoom = False

.FitToPagesTall = False

.FitToPagesWide = 1

End With



TmpSHdf.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        "D:\Daimi\" & ilk & "_" & son & "_Arası Daimi Arama.pdf", Quality:=xlQualityStandard, _

        IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False

        'S2.PrintOut Copies:=1, Collate:=True



Application.DisplayAlerts = False

TmpSHdf.Delete

Application.DisplayAlerts = True



ErrorHandler:

Application.ScreenUpdating = True



'hy______________________________________

MsgBox "Yazdırma İşlemi Gerçekleştirildi.", vbInformation, "Hazırlayan; Adli Büro "

End If