vba برای فیلتر اتوماتیک و سیو کردن نتیجه به صورت یک عکس

[hadimorshedi]

دوستان سلام
من یک کد پیدا کردم که باهاش می تونم اتوماتیک فیلتر کنم و پرینت بگیرم.
ولی می خوام این کد تغییر بدم و بتونم اتوماتیک فیلتر کنم و نتیجه رو به صورت یک عکس بگیرم.
میشه کسی بهم کمک کنه؟
مرسی
Sub Auto_Print_Lamp_PK()


Dim noDupes As New Collection
Dim rw As Long
Dim itm As Variant
Selection.AutoFilter Field:=2
rw = ActiveSheet.AutoFilter.Range.Row
For Each cell In ActiveSheet.AutoFilter.Range.Columns(2).Cells
If cell.Row <> rw Then
On Error Resume Next
noDupes.Add cell.Value, cell.Text
On Error GoTo 0
End If
Next
For Each itm In noDupes
Selection.AutoFilter Field:=2, Criteria1:=itm
Selection.AutoFilter Field:=2, Criteria1:=itm
ActiveSheet.PrintPreview
Next


End Sub

[Amir Ghasemiyan]

سلام دوست عزيز
اين كدي كه شما گذاشتين پرينت رو نميگيره فقط صفحه پيش نمايش پرينت رو مياره. اين نكته اول

نكته دوم اينكه شما فرض كنيد بعداز فيلتر حدود 400 رديف ديتا داشته باشيد. به نظرتون اين 400 رديف رو ميشه تو يك عكس آورد؟

من پيشنهادم اينه كه شما فايل خروجي رو بصورت pdf بگيريد. مثلا ميشه 10 صفحه. بعد با نرم افزارهايي كه كار تبديل انجام ميدن pdf رو به jpg يا png تبديل كنيد