اگر از یک شیت میخواهید پرینت بگیرید میتوانید با یک ماکرو ساده این کار را انجام دهید
محدوده پرینت را در ماکرو تعریف کنید
سلولی که بایستی شماره صفحه را نشان دهد مشخص کنید
و با یک دستور for به تعداد مشخص شده دستور پرینت را اجرا کنید
کد PHP:
Sub Macro1()
ActiveSheet.PageSetup.PrintArea = "$C$4:$H$23"
If Len(Range("h4")) = 0 Then Range("h4") = 1
For i = Range("h4") To Range("h2")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
If Range("h4") >= Range("h2") Then Exit For
Range("h4") = Range("h4") + 1
Next
End Sub
علاقه مندی ها (Bookmarks)