به راحتی تغییر سفارش چاپ

Question

باب فکر می کند که آیا راه آسانی برای تغییر ترتیب چاپ معمولی به ترتیب چاپ معکوس و بازگشت مجدد وجود دارد یا خیر. او می‌داند که می‌توان آن را در زمان چاپ با تنظیمات چاپ تغییر داد، اما به‌جای آن به دنبال فرمانی است که بتواند در نوار ابزار دسترسی سریع قرار دهد.

ساده ترین راه برای پیاده سازی یک رویکرد کلان ایجاد دو ماکرو خواهد بود. یکی برای تنظیم ترتیب چاپ معمولی و دیگری برای تنظیم ترتیب چاپ معکوس استفاده می شود:

Sub ForwardPrint()
    Options.PrintReverse = False
End Sub

Sub ReversePrint()
    Options.PrintReverse = True
End Sub

ماکروها بسیار بسیار ساده هستند و می توان آنها را به دکمه های نوار ابزار دسترسی سریع اختصاص داد. اگر ترجیح می دهید راه حلی را پیاده سازی کنید که از یک ماکرو استفاده می کند (بنابراین فقط باید از یک دکمه استفاده کنید)، ممکن است موارد زیر به خوبی کار کنند:

Sub SwapPrint()
    With Options
        If .PrintReverse = True Then
            .PrintReverse = False
            MsgBox ("Now printing in normal order")
        Else
            .PrintReverse = True
            MsgBox ("Now printing in reverse order")
        End If
    End With
End Sub

این رویکرد ویژگی PrintReverse را تغییر می‌دهد، بنابراین بین ترتیب عادی و معکوس تغییر می‌کند. ماکرو همچنین کادر محاوره ای را نشان می دهد که ترتیب چاپ فعلی را نشان می دهد.