دیوید سندی دارد که کمتر از 30 صفحه دارد. وقتی سند را چاپ می‌کند، دوست دارد صفحات فرد از سینی 1 چاپگر و صفحات زوج از سینی 2 چاپ شوند. او نمی‌داند آیا راهی وجود دارد که مشخص کند برخی صفحات باید از سینی‌های کاغذی خاص چاپ شوند. در همان کار چاپ؟ (اگر کارهای چاپی جداگانه ای انجام دهد، پس صفحات در ترتیب درستی نیستند. اگر بتواند در یک کار چاپی چاپ کند، همه آنها به درستی دسته بندی می شوند.)
هیچ قابلیت ذاتی برای انجام این کار در Word وجود ندارد، حداقل نه آنطور که دیوید تصور کرده است. Word به شما امکان می‌دهد تا با پارامترهایی که توسط درایور چاپگر شما مجاز است، نحوه پردازش کارهای چاپی را تغییر دهید. برای اکثر درایورهای چاپگر، می توانید تعیین کنید که از کدام سینی کاغذ برای کار خود استفاده کنید. همچنین می توانید مشخص کنید که Word باید صفحات زوج یا فرد را چاپ کند. هنگامی که این دو تنظیمات را با هم ترکیب می کنید، می توانید تعیین کنید که صفحات زوج از یک سینی چاپ شوند و سپس کار دوم را انجام دهید تا مشخص کنید که صفحات فرد از سینی دیگر چاپ شوند.
با این حال، این چیزی نیست که دیوید می خواهد. او راهی را می خواهد که همه صفحات را به یکباره چاپ کند و صفحات را به طور متناوب بین دو سینی قرار دهد. می توان نیاز مشابهی را تصور کرد که در آن می خواهید هر صفحه سوم یا هر صفحه پنجم را از یک سینی چاپ متفاوت چاپ کنید. با این حال، Word این سطح از کنترل را از داخل برنامه اجازه نمی دهد.
از نظر تئوری می توانید چاپ خود را با استفاده از ماکرو انجام دهید. مثال زیر صفحات متناوب سند شما را در دو سینی چاپگر مختلف چاپ می کند:
Sub PrintUsingTwoTrays() Dim sUseTrays(1) As String Dim sTray As String Dim iPgs As Integer Dim J As IntegerSet up paper trays to use sUseTrays(0) = "Tray 2"Tray for even pages sUseTrays(1) = "Tray 1"Tray for odd pagesGet total pages in document iPgs = Selection.Information(wdNumberOfPagesInDocument)Save current tray setting sTray = Options.DefaultTray For J = 1 To iPgs Options.DefaultTray = sUseTrays(J Mod 2) ActiveDocument.PrintOut Range:=wdPrintFromTo, _ From:=Trim(Str(J)), To:=Trim(Str(J)) Next JRestore original tray setting Options.DefaultTray = sTray End Sub
کلید استفاده از ماکرو این است که مطمئن شوید که متغیرهای sUseTrays(0) و sUseTrays(1) را به عنوان نام دو سینی چاپگر خود تنظیم کرده اید. این نام‌ها ممکن است از درایور چاپگر به درایور چاپگر متفاوت باشد، بنابراین اگر ماکرو برای شما کار نمی‌کند، باید نام دقیق سینی‌های کاغذ خود را همانطور که توسط Word فهمیده‌اید بررسی کنید. این کار را با نمایش کادر گفتگوی Word Options، روی Advanced در سمت چپ کادر محاوره ای کلیک کنید و سپس به قسمت Print بروید. در آنجا یک لیست کشویی Default Tray را می بینید که تمام نام سینی های تعریف شده در درایور چاپگر شما را نشان می دهد.
همچنین باید توجه داشته باشید که این روش برای جابجایی بین دو سینی کاغذ عالی عمل می کند. اگر می‌خواهید برای هر 3 یا هر 5 صفحه، چاپ ماکرو را در سینی‌های مختلف داشته باشید، باید استفاده از آرایه sUseTrays را تغییر دهید و نحوه تنظیم ویژگی DefaultTray را بر اساس شماره صفحه تغییر دهید.
رویکرد ماکرو به انجام یک کار چاپ برای صفحات جداگانه در سند شما ختم می شود. بنابراین، در مورد دیوید، اگر سندی با 27 صفحه داشته باشد، ماکرو 27 کار چاپی ایجاد می کند، یک کار برای هر صفحه در سند. این بدان معناست که چاپ با استفاده از ماکرو کندتر از زمانی است که یک کار چاپی را چاپ می کنید، به دلیل سربار معرفی شده توسط Word، Windows و چاپگر شما برای هر کار چاپی. همچنین به این معنی است که اگر در یک چاپگر مشترک چاپ می کنید، از نظر تئوری ممکن است کار چاپ دیگری در وسط 27 کار چاپی شما انجام شود.
