Seçili Sayfaların Bastırılması

[cevatyildiz]

Merhaba,

Excel de 4 sayfalık bir raporum var. İlk 2 sayfa kesinlikle basılması gerekiyor. Fakat 3 ve 4. sayfalar eğer içlerinde herhangi bir resim varsa PDF printer ile basılması gerekiyor.

Aşağıda excel ve pdf i kaydetmek için kullanmış oldugum kodum var. Nasıl değiştirilmesi gerekir?

Sub SaveWithVariableFromCell()
    Dim SaveName As String
    Dim Dosya As String
    SaveName = ActiveSheet.Range("AZ18").Text
Start:
    Dosya = "T:\Inspection_reports\" & Date & "-" & SaveName & ".xlsm"
    If Not Dir(Dosya) = "" Then
        If MsgBox(Dosya & " bu dosya zaten var üzerine kaydetmek istiyor musunuz?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
    End If
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=Dosya
    Application.DisplayAlerts = True

    Dim s As Variant
    s = Format(Date) & "-" & Range("AZ18").Value
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="T:\Inspection_reports\" & s & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties _
    :=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

 

[cevatyildiz]

Resim eklerken sayfaya başka bir sayı veya rakam da yazdırabilirim. Buna göre print edilecek olan sayfalar otomatik olarak seçtirilebilir mi?