پرسش: پی دی اف گرفتن از 6 شیت با زدن یک کیلد(6 فایل پی دی اف جداگانه)
با سلام
من یک فایل اکسل دارم که از چندین شیت تشکیل شده
و میخوام با زدن یک کلید، از 6 شیت به صورت همزمان فایل پی دی اف بهم بده
در حال حاضر توی هر شیت یک کلید گذاشتم که با زدن اون خروجی پی دی اف رو میده
ولی میخوام برای هر 6 تا شیت به صورت همزمان و فایل های چداگانه خروجی بده
در انتها کدی که باهاش پی دی اف تکی میگیرم رو گذاشتم
ممنون میشم راهنمایی کنید
-----------------------
Sub printR()
Dim ws As Worksheet
Dim strPath As String
Dim myFile As Variant
Dim strFile As String
On Error GoTo errHandler
Set ws = ActiveSheet
strFile = Replace(Replace(ws.Name, " ", ""), ".", "_") _
& "-" _
& Range("C5") _
& "(" _
& Range("D6") _
& " " _
& Range("G6") _
& " " _
& Range("k6") _
& ")" _
& ".pdf"
strFile = ThisWorkbook.Path & "" & strFile
myFile = Application.GetSaveAsFilename _
(InitialFileName:=strFile, _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="ãÓíÑ æ äÇã ÝÇíá ÑÇ ÌåÊ ÐÎíÑå ÓÇÒí ãÔÎÕ äãÇÆíÏ")
If myFile <> "False" Then
ws.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=myFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
MsgBox ".ÝÇíá ÈÇ ãæÝÞíÊ ÇíÌÇÏ ÑÏíÏ"
End If
exitHandler:
Exit Sub
errHandler:
MsgBox "ÎØÇ ÏÑ ÇíÌÇÏ ÝÇíá"
Resume exitHandler
End Sub
من یک فایل اکسل دارم که از چندین شیت تشکیل شده
و میخوام با زدن یک کلید، از 6 شیت به صورت همزمان فایل پی دی اف بهم بده
در حال حاضر توی هر شیت یک کلید گذاشتم که با زدن اون خروجی پی دی اف رو میده
ولی میخوام برای هر 6 تا شیت به صورت همزمان و فایل های چداگانه خروجی بده
در انتها کدی که باهاش پی دی اف تکی میگیرم رو گذاشتم
ممنون میشم راهنمایی کنید
-----------------------
Sub printR()
Dim ws As Worksheet
Dim strPath As String
Dim myFile As Variant
Dim strFile As String
On Error GoTo errHandler
Set ws = ActiveSheet
strFile = Replace(Replace(ws.Name, " ", ""), ".", "_") _
& "-" _
& Range("C5") _
& "(" _
& Range("D6") _
& " " _
& Range("G6") _
& " " _
& Range("k6") _
& ")" _
& ".pdf"
strFile = ThisWorkbook.Path & "" & strFile
myFile = Application.GetSaveAsFilename _
(InitialFileName:=strFile, _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="ãÓíÑ æ äÇã ÝÇíá ÑÇ ÌåÊ ÐÎíÑå ÓÇÒí ãÔÎÕ äãÇÆíÏ")
If myFile <> "False" Then
ws.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=myFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
MsgBox ".ÝÇíá ÈÇ ãæÝÞíÊ ÇíÌÇÏ ÑÏíÏ"
End If
exitHandler:
Exit Sub
errHandler:
MsgBox "ÎØÇ ÏÑ ÇíÌÇÏ ÝÇíá"
Resume exitHandler
End Sub