تبدیل شیت ها به 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 متغیر و از مثلا یکی از سلول ها بخونه خیلی بهتره
آیا میشه بصورت فوتر بهش شماره صفحه داد؟