الاخوة القائمين على هذا الصرح الكبير السلام عليكم ورحمة الله وبركاته
ارجو المساعده في ايجاد كود لطابعة شيتات على صيغة
PDF
اسماء الاوراق عندي
كما يلي
MH-55- 235235
MF-23-696969
يعني هناك اورق
MH-55- 235235
MH-55- 235230
MH-55- 235225
MH-55- 235260
MF-23-50026262
MF-23-50026263
MF-23-50026265
اريد الكود ان يقوم بطابعة الاوراق تبدا باول حرفين
دون النظر لبقية اسم الصفحة
MH-55
MF-23
دون النظر لبقية الارقام
فمن المفترض ان يقوم بطابعة سبع صفحات لي
Private Sub CommandButton3_Click()
ThisWorkbook.Sheets("MH-55"& "MF-23").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\hbN.pdf", Openafterpublish:=True
End Sub