Printer.PrintAction 屬性

發行項
08/21/2008

更新：2007 年 11 月

取得或設定值，決定將列印輸出導向印表機、預覽列印視窗或檔案。

命名空間： Microsoft.VisualBasic.PowerPacks.Printing.Compatibility.VB6
組件： Microsoft.VisualBasic.PowerPacks.Vs (在 Microsoft.VisualBasic.PowerPacks.Vs.dll 中)

語法

Public Property PrintAction As PrintAction

Dim instance As Printer
Dim value As PrintAction

value = instance.PrintAction

instance.PrintAction = value

public PrintAction PrintAction { get; set; }

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 時，列印輸出會導向電腦的預設印表機。如果未安裝印表機，則會發生錯誤。

選取 PrintToPreview 時，列印輸出會在標準的 PrintPreviewDialog 控制項中顯示。

選取 PrintToFile 時，列印輸出會儲存到封裝的 PostScript 檔案 (.eps、.ps 或 .ai)，該檔案位於 PrintFileName 屬性指定的路徑中。如果未指定檔案名稱，則會發生錯誤。檔案會以 8 位元的灰階 PostScript 格式儲存。不支援 24 位元的 RGB PostScript。

注意事項：
不會提示使用者輸入路徑或副檔名。若要確認此檔案包含有效路徑和副檔名，您可以實作自己的對話方塊。若要執行這項操作，請使用 SaveFileDialog 元件並指派傳回值給 PrintFileName 屬性，再呼叫 Print 方法。

下表列出適用於 PrintAction 屬性的 PrintAction 值。

列舉名稱	描述
PrintToFile	列印作業會導向檔案。
PrintToPreview	列印作業會導向預覽列印對話方塊。
PrintToPrinter	列印作業會導向印表機。

注意事項：
Microsoft.VisualBasic.PowerPacks.Printing.Compatibility.VB6 命名空間中的函式和物件都是供這些工具使用，以便從 Visual Basic 6.0 升級至 Visual Basic 2008。在大部分情況下，這些函式和物件會複製 .NET Framework 裡其他命名空間中可以找到的功能。只有當 Visual Basic 6.0 程式碼模型與 .NET Framework 實作有顯著差異時，才需要這些項目。

Microsoft.VisualBasic.PowerPacks.Printing.Compatibility.VB6 命名空間中的函式和物件都是供這些工具使用，以便從 Visual Basic 6.0 升級至 Visual Basic 2008。在大部分情況下，這些函式和物件會複製 .NET Framework 裡其他命名空間中可以找到的功能。只有當 Visual Basic 6.0 程式碼模型與 .NET Framework 實作有顯著差異時，才需要這些項目。

範例

下列範例會示範如何設定 PrintAction 屬性。您必須擁有三個 RadioButton 控制項，讓使用者能夠選取列印方法。

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