Şartlı sayfa sayısı ile Pdf kaydetme

[alperycl1]

Merhabalar; Sayfamı Pdf olarak yazdırabiliyorum ama sayfa1 a1 sütununda değer 1 yazıyorsa sayfa2'nin ilk 2 sayfayı, 2 yazıyorsa ilk 4 sayfası ,diyerek 6 yazıyorsa ilk 12 sayfayı yazdıra kadar gidiyor. aktif tek sayfada aşağıdaki makro ile yapabiliyorum. Bu şekilde şartı nası yazabilirim.


Sub veriraporu()

Sheets("Veri Raporu").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Casper\Desktop\GEOREPT V.2.25 makrolu.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

End Sub

 

[alperycl1]

Şöyle bir düzeltme eklemek gerekli sanırım sayfa2 de uzunluğu 12 adet A4 boyutlu bir saydan oluşuyor.