Workbook_BeforePrint内でPDFとしてエクスポートを有効にするキャンセル

Question

"Workbook_BeforePrint（ブール値としてキャンセル）"がPDFへのエクスポートを停止しています。私はこのサブを削除すると、PDFエクスポートが動作することが判明しましたが、印刷前に私の "修正"を保ちたいと思います。

pdfへのエクスポートを処理するためにコードを書き直す方法はありますか？効果私のコードは

を追加した後、保持、輸出用のコードの作業を行い、輸出（なしPDFへの影響の後）

または

B）の「印刷する前にキャンセルを」無視する

A）

Private Sub Workbook_BeforePrint(Cancel As Boolean) 
    Application.Volatile True 
    Cancel = True 

    Application.EnableEvents = False 
    Application.ScreenUpdating = False 

    'My code 

    Application.EnableEvents = True 
    Application.ScreenUpdating = True 
End Sub 

Answer 1

ActivePrinterは、現在のプリンタ名（Canon MP230シリーズauf Ne03 :)のようなものを表示します。 pdfにエクスポートすると、アクティブなプリンタがそれに応じて変更されます（現在のステーション：Foxit Reader PDF Printer at Ne01 :)。

だからあなたのPDFプリンタがFoxitのある、次のコードを使用したと仮定すると：

... 
if (Left(ActivePrinter, 5) <> "Foxit") then 
    'regular printing, therefore execute your code 
else 
    'pdf-priner, therefore do something else (or nothing) 
end if 
...