سلام
آیا امکانش هست که این کد را فقط برای یک دکمه در یوزر فرم تعریف کرد که بعداز کلیک شیت های مورد نظر ما(مثلا شیت های 7 و 8 ) تبدیل به پی دی اف بشود ؟
سلام
آیا امکانش هست که این کد را فقط برای یک دکمه در یوزر فرم تعریف کرد که بعداز کلیک شیت های مورد نظر ما(مثلا شیت های 7 و 8 ) تبدیل به پی دی اف بشود ؟
خيلي عالي بود شما نابغه هستيد من كه لذت بردم
سلام دوست عزيز
كافيه دو پارامتر From و To رو به پارامترهاي تعريف شده اضافه كنيد. مثلا اينطوري:
کد:Sub Button2_Click()Dim strPDF_File_Name As String FileName1 = Sheets("1").Range("B4") 'InputBox("Please input filename", "Filename") Sheets(Array("1", "2")).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & FileName1 & ".pdf", Quality _ :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=True, From:=1, To:=1 End Sub
سلام آقاي مهندس وقت بخير سپاس عالي بود درست شد قبلا ميزدم خطا مي داد مثل تصوير ولي يه كاما كم داشت خيلي ممنون
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
علاقه مندی ها (Bookmarks)