[حل شده] تعداد صفحات چاپ در ماکرو

[saleh64]

سلام
یک کد ماکرو میخوام برای تعداد صفحات چاپ پرینت
کسی میتونه کمک کنه
ممنون

[Ali Parsaei]

سلام،
اين کد ماکرو خيلي ساده براي يک عدد کپي از شيت است:

Sub Macro1()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True,IgnorePrintAreas:=False
End Sub 

حال مقدار COPIES:=1 در کد فوق را مي توانيد به يک تکست باکس يا هر چيز ديگري ارجاع دهيد و توسط آن تعداد کپي را تعيين کنيد. مثلا" اگر بخواهيد مي توانيد تعداد کپي دلخواهتان را در سلول A1 بنويسيد و سپس ماکرو را اجرا کنيد که در آن صورت کد آن به صورت زير مي شود:

Sub Macro1()
ActiveWindow.SelectedSheets.PrintOut Copies:=Range("A1").Value, Collate:=True,IgnorePrintAreas:=False
End Sub