[حل شده] پرينت

[moslemi]

سلام
من یک فایل شامل يك شيت دارم
اگه بخوام ستون مدرك براساس مدارك تحصيلي پرينت بگيرم چگونه است

مثلا يكبار ديپلم فيلتر كنم پرينت گرفته شود بعد دوباره كارداني فيلتر شود بعد پرينت گرفته شود

ممنون

[moslemi]

Sub Macro1()
'
' Macro1 Macro
'


'
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:= _
"كارداني"
Range("B38").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2
Range("Table1[[#Headers],[مدرک]]").Select
End Sub

امكان داره اين ماكرو كامل بشه

[iranweld]

با سلام

در صورت انتخاب نوع مدرک از سلول I2 ماکرو پرینت اجرا میگردد

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next  'skip all run-time errors'


 If Not Application.Intersect(Target, Range("I2")) Is Nothing Then
 

Application.EnableEvents = False

 Z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

ActiveSheet.Range("$A$2:$F" & Z).AutoFilter Field:=2, Criteria1:=Range("I2").Value



Columns("A:F").Select
    ActiveSheet.PageSetup.PrintArea = "$A1:$F&Z"
    
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=True
        
     Range("A3").Select
     End If
Application.EnableEvents = True

On Error GoTo 0  'Turn off error trapping and re-allow run time errors

End Sub 

[moslemi]

سپاسگذارم