قبلاً می دانید که ویندوز از چندین چاپگر پشتیبانی می کند. استفاده از Word با چندین چاپگر می‌تواند آزاردهنده باشد، زیرا باید گزینه‌های چاپ را نمایش دهید، چاپگر را تغییر دهید و سپس سند را چاپ کنید. راهی وجود دارد که می توانید اسناد خود را با یک کلیک روی یک چاپگر مشخص چاپ کنید. برای انجام این کار، کافی است یک ماکرو ثبت کنید که چاپگر را تغییر می دهد و سپس سند را چاپ می کند. در زیر نمونه ای از یک ماکرو است که کار را انجام می دهد:
Sub GoodPrinter() Dim sCurrentPrinter As String sCurrentPrinter = ActivePrinter ActivePrinter = "HP LaserJet" Application.PrintOut Range:=wdPrintAllDocument, _ Item:=wdPrintDocumentContent, Copies:=1 ActivePrinter = sCurrentPrinter End Sub
نکته ای که در این ماکرو باید به آن توجه کرد خطی است که ActivePrintere را تنظیم می کند. خط را طوری تغییر دهید که دقیقاً نام چاپگری را که می خواهید برای خروجی خود استفاده کنید منعکس کند. در این مثال، آن را به چاپگری به نام "HP LaserJet" تنظیم شده است.
لازم به ذکر است که این ماکرو در واقع ثبت نشده است. از اول نوشته شده بود دلیل آن این است که نام چاپگر در حال استفاده می تواند در متغیر sCurrentPrinter ذخیره شود. هنگامی که چاپ کامل شد، چاپگر را می توان به هر چاپگری که قبل از تغییر ماکرو شما بود برگرداند.
ترفند این است که برای هر یک از چاپگرهایی که استفاده می کنید یک ماکرو ایجاد کنید. سپس می توانید هر یک از ماکروها را در نوار ابزار دسترسی سریع قرار دهید تا هر چاپگر دکمه چاپ مخصوص به خود را داشته باشد. وقتی روی دکمه کلیک می کنید، ماکرو مناسب اجرا می شود و خروجی را روی چاپگر مورد نظر دریافت می کنید.
