جویس یک چاپگر دارد که دو سینی کاغذ در آن قرار دارد. اولین سینی کاغذ (پیش‌فرض) حاوی کاغذ سفید معمولی است. سینی کاغذ دوم حاوی کاغذ رنگی متفاوتی است. در دفتر جویس، هر زمان که اسناد را چاپ می کنند، باید یک نسخه را روی کاغذ سفید و نسخه دیگر را روی کاغذ رنگی چاپ کنند. او نمی‌پرسد آیا راهی برای چاپ تکی سند وجود دارد، اما از Word بخواهد یک کپی را به سینی کاغذ اول و کپی دیگر را به دومی بفرستد.
بهترین راه برای انجام این کار استفاده از ماکرو است، اما چند روش مختلف وجود دارد که می توانید هنگام ایجاد ماکرو از آنها استفاده کنید. من اعتقاد راسخ دارم که ابتدا راه آسان را امتحان کنید، بنابراین می توانید ماکرو کوتاه زیر را امتحان کنید:
Sub PrintTwoTrays() Dim sTray As String sTray = Options.DefaultTray Options.DefaultTray = "Tray 1" Application.PrintOut FileName:="" Options.DefaultTray = "Tray 2" Application.PrintOut FileName:="" Options.DefaultTray = sTray End Sub
این ماکرو از ویژگی DefaultTray برای تعیین سینی برای استفاده برای چاپگر شما استفاده می کند. این رویکرد تنظیماتی را که می توانید در تنظیمات پیشرفته کادر گفتگوی Word Options مشاهده کنید، تنظیم می کند. (شکل 1 را ببینید.)
شکل 1. تنظیمات پیشرفته کادر گفتگوی Word Options.
به لیست کشویی Default Tray در کادر محاوره ای توجه کنید. این گزینه‌های مختلف سینی موجود برای چاپگر شما را فهرست می‌کند. برای اکثر چاپگرها، گزینه سینی 1 و سینی 2 وجود خواهد داشت، مشروط بر اینکه چاپگر حداقل دو سینی کاغذ داشته باشد. ماکرو PrintTwoTrays این گزینه را به صراحت روی سینی 1 تنظیم می کند، یک کپی چاپ می کند، سپس سینی 2، یک کپی چاپ می کند و سپس تنظیمات را به مقدار اصلی خود باز می گرداند. اگر به کنترل در کادر محاوره‌ای نگاه کنید و گزینه‌های مختلفی را در آنجا مشاهده کردید، می‌توانید ماکرو را تغییر دهید تا گزینه‌های مناسب برای سیستم شما منعکس شود - فقط مطمئن شوید که از عبارت دقیق نشان داده شده در لیست کشویی استفاده می‌کنید.
اگر روش ساده کار نمی کند، باید از روش دقیق تر استفاده کنید. این شامل تنظیم دو تعریف مختلف چاپگر است که هر کدام از سینی چاپگر متفاوتی استفاده می کنند. شما باید این چاپگرها را در ویندوز تعریف کنید، و باید مطمئن شوید که وقتی یک صفحه آزمایشی را چاپ می کنید (دوباره در ویندوز)، در سینی کاغذ مورد نظر استفاده می شود.
- برای هر سینی کاغذی که می خواهید استفاده کنید، یک چاپگر جدید در ویندوز تعریف کنید. هر تعریف چاپگر باید از نام نماینده سینی کاغذ استفاده کند.
- روی تعریف چاپگری که برای اولین سینی کاغذ ایجاد کردید کلیک راست کنید و ویژگی های چاپگر را تغییر دهید تا با استفاده از آن سینی چاپ شود.
- یک صفحه آزمایشی را چاپ کنید و مطمئن شوید که از سینی کاغذ مورد انتظار استفاده می کند.
- مراحل 2 و 3 را برای تعریف چاپگر دیگر تکرار کنید، مطمئن شوید که سینی کاغذ دیگر را برای آن مشخص کرده اید.
در این مرحله شما چندین تعریف چاپگر را تنظیم کرده اید و هر کدام در یک سینی کاغذ متفاوت در همان چاپگر چاپ می کنند. اکنون می توانید چاپگر مورد نظر را به صورت ماکرو مشخص کنید تا چاپ به سینی کاغذ مورد نظر برود.
Sub PrintTwoTrays() Dim sCurrentPrinter as String sCurrentPrinter = Application.ActivePrinter Application.ActivePrinter = "Tray 1 Printer" Application.PrintOut FileName:="" Application.ActivePrinter = "Tray 2 Printer" Application.PrintOut FileName:="" Application.ActivePrinter = sCurrentPrinter End Sub
بدیهی است که می خواهید نام چاپگر را در ماکرو تغییر دهید تا نام هایی را که به تعاریف چاپگر جدید ایجاد کرده اید منعکس کنید.
