تبدیل شیت ها به pdf به صورت جداگانه

[ali.b]

با این کد میتونید از تمام شیت ها به صورت جداگانه به فایل PDF تبدیل کنید

Option Explicit
Sub Print_PDF()
Dim Awb As Workbook
Dim Snr As Integer
Dim ws As Worksheet
Set Awb = ActiveWorkbook
 
 
For Each ws In Awb.Sheets
    If Not ws.Name = "Sheet1" Then
        'Sheets(ws.Name).Copy
        Awb.Sheets(ws.Name).Copy
        'Sheets(ws.Name).Select
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Awb.Path & "\" & Awb.Sheets(ws.Name).Name & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
       
        ActiveWindow.Close False
    End If
Next ws
 
 
End Sub

[امين اسماعيلي]

با درود
ممنون فقط یه مسئله جاش تو اموزش وی بی بود نه تو تالار پرسش . ممنون

[arash2152]

چگونه میشه دو شیت از سه شیت یک فایل اکسل را تیدیل به یک فایل PDF کرد؟
ترجیحا اگه Print area متغیر و از مثلا یکی از سلول ها بخونه خیلی بهتره
آیا میشه بصورت فوتر بهش شماره صفحه داد؟