کمبوباکس و اجرای دستور پرینت و...

[reza_gh_tak]

چطور میشه در یوزر فرم کمبوباکسی حاوی سه قسمت داشت شامل پرینت، اکسل، عکس
که وقتی هر کدوم را انتخاب کردم بدون باز کردن شیت از اون قسمت که قبلاً تعیین کردم خروجی مثلآً اکسل بده یا پرینت بگیره و....
ممنون

[reza_gh_tak]

کسی راه حل یا نمونه ای برای این مشکل من نداره ممنون میشم کمکم کنید

[ali.b]

چطور میشه در یوزر فرم کمبوباکسی حاوی سه قسمت داشت شامل پرینت، اکسل، عکس
که وقتی هر کدوم را انتخاب کردم بدون باز کردن شیت از اون قسمت که قبلاً تعیین کردم خروجی مثلآً اکسل بده یا پرینت بگیره و....
ممنون

سلام اگه درست توجه شده باشم

Private Sub ComboBox1_Change()
If ComboBox1.Text = "پرینت" Then
Dim lastrow As Long
lastrow = ActiveSheet.UsedRange.Rows.Count
ActiveSheet.PageSetup.PrintArea = Range("A1:G" & lastrow).Rows.SpecialCells(xlCellTypeVisible).Address
ActiveSheet.PrintPreview
End If
End Sub

[reza_gh_tak]

تقریبا همینه حالا
اگر pdf بخواهیم چطور؟

[ali.b]

تقریبا همینه حالا
اگر pdf بخواهیم چطور؟

Sheets("Sheet1").Range("B2:c10").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\" & "Book.pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True

[reza_gh_tak]

ممکن یه کمبو باکس نمونه برای این دوتا دستور بذارید ممنون می شم

[reza_gh_tak]

امکانش هست کسی یه نمونه فایل بذاره

[reza_gh_tak]

اگر یه مثال بزنید و یا فایل رو بذارید ممنون می شم