PrintForm.PrintAction プロパティ

2008-08-22

更新 : 2007 年 11 月

印刷出力をプリンタ、印刷プレビューウィンドウ、ファイルのどれに送るかを指示する値を取得または設定します。

名前空間 : Microsoft.VisualBasic.PowerPacks.Printing
アセンブリ : Microsoft.VisualBasic.PowerPacks.Vs (Microsoft.VisualBasic.PowerPacks.Vs.dll 内)

構文

'宣言
<BrowsableAttribute(True)> _
Public Property PrintAction As PrintAction
'使用
Dim instance As PrintForm
Dim value As PrintAction

value = instance.PrintAction

instance.PrintAction = value

[BrowsableAttribute(true)]
public PrintAction PrintAction { get; set; }

[BrowsableAttribute(true)]
public:
property PrintAction PrintAction {
    PrintAction get ();
    void set (PrintAction value);
}

public function get PrintAction () : PrintAction
public function set PrintAction (value : PrintAction)

プロパティ値

型 : System.Drawing.Printing.PrintAction

PrintAction 列挙体を返します。

解説

PrintToPrinter を選択した場合、出力はシステムの既定のプリンタに送られます。PrinterSettings プロパティを使用すると、この動作をオーバーライドして、プリンタとプリンタのプロパティを明示的に設定できます。既定のプリンタが使用できない場合、ユーザーがプリンタを選択するよう求められます。

PrintToPreview を選択した場合、フォームは標準の Windows フォーム PrintPreviewDialog コントロールに表示されます。

PrintToFile を選択した場合、PrintFileName プロパティで指定されたパスの EPS (Encapsulated PostScript) ファイル (.eps、.ps、または .ai) にフォームのイメージが保存されます。ファイル名を指定しないと、ユーザーがファイル名を入力するように求められます。

メモ :
ファイルは 8 ビットのグレースケール PostScript 形式で保存されます。24 ビットの RGB PostScript はサポートされていません。

メモ :
ユーザーはパスやファイル名拡張子の入力を求められません。ファイルのパスと拡張子が適切であることを確認するために、独自のダイアログボックスを実装できます。これを行うには、Print メソッドの呼び出し前に、SaveFileDialog コンポーネントを使用し、その戻り値を PrintFileName プロパティに割り当てます。

ユーザーはパスやファイル名拡張子の入力を求められません。ファイルのパスと拡張子が適切であることを確認するために、独自のダイアログボックスを実装できます。これを行うには、Print メソッドの呼び出し前に、SaveFileDialog コンポーネントを使用し、その戻り値を PrintFileName プロパティに割り当てます。

例

PrintAction プロパティの設定方法を次の例に示します。この例では、フォームに PrintForm1 という名前の PrintForm コンポーネントと、3 つの RadioButton コントロールが必要です。

If RadioButton1.Checked = True Then
    PrintForm1.PrintAction = Printing.PrintAction.PrintToPrinter
ElseIf RadioButton2.Checked = True Then
    PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
Else
    PrintForm1.PrintFileName = _
  My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData _
  & "Form1.eps"
    PrintForm1.PrintAction = Printing.PrintAction.PrintToFile
End If