كود لطابعة اسماء اوراق على صيغة PDF

[محمد 9009]

الاخوة القائمين على هذا الصرح الكبير السلام عليكم ورحمة الله وبركاته

 

ارجو المساعده في ايجاد كود لطابعة شيتات  على صيغة

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

 

 

[سليم حاصبيا]

جرب هذا الكود

Option Explicit

Sub Rrint_out()
Dim sh As Worksheet
For Each sh In Sheets
 If sh.Name Like "??" & "-##*" Then
'Choose sh.PrintPreview Or sh.PrintOut
  sh.PrintPreview
' sh.PrintOut
 End If
 Next
 
End Sub

 

[محمد 9009]

اخ سليم الكود اضعه وين في 

form

ام

Module

[سليم حاصبيا]

  ضعه في الفورم       form  

احذف اول سطر من الكود وضع مكانه

 

Private Sub CommandButton3_Click()

اذا كان رقم الزر التنفيذ 3

او استبدل 3 برقم زر التنفيذ

[محمد 9009]

بارك الله في علمك اخي سليم 🌹🌹🌹🤲