Sayfa sayısını artırmak

[cemşir79]

forumda bulduğum bir makroda sayfaları pdf yapmak istediğimde çok güzel çalışıyor sayfa sayısını nedense 2 sayfa olarak yapamadım bu konuda yardımınızı bekliyorum şimdiden yardımcı olacaklara teşekkür ederim.
Sayfa adları SINIF LİSTESİ ve OTURMA PLAN KAYDET ÇİFTLİ

Sub Pdf_Kaydet()


If Sheets("SINIF LİSTESİ").Range("A1") = "" Then
MsgBox "A1 hücresi boş!"
Else
Sheets("SINIF LİSTESİ").ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\" & Sheets("SINIF LİSTESİ").Range("A1") & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
End Sub

 

[Korhan Ayhan]

Burada örnekler var.

Sorgu için arama sonuçları: ExportAsFixedFormat+array

www.excel.web.tr

 

[cemşir79]

Korhan hocam teşekkür ederim
aynı kodu başka bir sayfaya da gösterdim

Sub Pdf_Kaydet()
If Sheets("SINIF LİSTESİ").Range("A1") = "" Then
MsgBox "A1 hücresi boş!"
Else
Sheets("SINIF LİSTESİ").ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\" & Sheets("SINIF LİSTESİ").Range("A1") & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
End Sub

çalıştırmak istediğim zaman

Sub kod()
Call OTURMA PLAN KAYDET ÇİFTLİ
Call SINIF LİSTESİ
End Sub

İlginiz için teşekkür ederim