Soru Döngüdeki verileri toplu PDF yapma

[Muhammet Okumuş]

Merhaba arkadaşlar,

Sub PDF_TOPLU()
For i = 1 To 6

Cells(i + 5, 2).Select

With ActiveSheet.Range("E3:I50")
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\" & Cells(i + 5, 2).Value, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With

Next

End Sub

Bu kod, PDF dosyalarını ayrı ayrı oluşturuyor. Peki bu dosyalarını ayrı ayrı değil de tek bir dosyada oluşturmak mümkün mü?

 

[ÖmerFaruk]

Bu kodlarla dosyanızdaki kodlar aynı değil
Ayrıca E3:I150 aralığını tek bir PDF sayfasına mı sığdıracaksınız?

Sanki PDF oluşacak haliyle verilerinizi ve hücrelerinizi görmek gerek

 

[Muhammet Okumuş]

Sn ÖmerFaruk,

Yabancı bir sitede bununla ilgili soruya verilen bir yanıt buldum. Sanırım yapmak istediğim mümkün değil.
1. Seçenek olarak Tüm verileri tek sayfada birleştir.
2. Seçenek olarak tek tek oluşan sayfaları başka bir program ile birleştir.

2. Seçenek daha uygulanabilir.

Evet onu dosyamdaki koddan almıştım. Ama burda aralıktan ziyade tek dosya yapabilmekti.