ARA KARNE ÇOKLU PDF YAZDIRMA

[hakta85]

Arkadaşlar öğrencilerine ara karne vermek istiyorum karne zaman için geldi için vaktim de kalmadı yapmak istedim ekte gönderdim excel karne de mavi okla gösterdim isimi tek tek seçmek yerine makro ile isim bazlı pdf çoklu yazdırmak ve karneleri hızlı olarak vermek desteklerinizi için şimdiden çok teşekkür ederim.

 

[hakta85]

Değerli Arkadaşlar Desteklerinizi bekliyorum. Çok Teşekkürler Ellerinize Sağlık

 

[veyselemre]

Sub test()
    Dim list, ogr, folderName$, pdfName$
    list = Evaluate(Range("F7").Validation.Formula1)
    folderName = "C:\Users\pc\Desktop\Karneler"

    For Each ogr In list
        Range("F7").Value = ogr
        pdfName = folderName & ogr & ".pdf"
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                        pdfName, Quality:=xlQualityStandard, _
                                        IncludeDocProperties:=True
        'ActiveSheet.PrintOut
        Application.Wait Now + #12:00:01 AM#
    Next
End Sub