本文整理汇总了VB.NET中System.Drawing.Printing.PageSettings.PaperSource属性的典型用法代码示例。如果您正苦于以下问题：VB.NET PageSettings.PaperSource属性的具体用法？VB.NET PageSettings.PaperSource怎么用？VB.NET PageSettings.PaperSource使用的例子？那么恭喜您, 这里精选的属性代码示例或许可以为您提供帮助。您也可以进一步了解该属性所在类System.Drawing.Printing.PageSettings的用法示例。
在下文中一共展示了PageSettings.PaperSource属性的5个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: PaperSize
' Add list of supported paper sizes found on the printer.
' The DisplayMember property is used to identify the property that will provide the display string.
comboPaperSize.DisplayMember = "PaperName"
Dim pkSize As PaperSize
For i = 0 to printDoc.PrinterSettings.PaperSizes.Count - 1
pkSize = printDoc.PrinterSettings.PaperSizes.Item(i)
comboPaperSize.Items.Add(pkSize)
Next
' Create a PaperSize and specify the custom paper size through the constructor and add to combobox.
Dim pkCustomSize1 As New PaperSize("Custom Paper Size", 100, 200)
comboPaperSize.Items.Add(pkCustomSize1)示例2:
' Add list of paper sources found on the printer to the combo box.
' The DisplayMember property is used to identify the property that will provide the display string.
comboPaperSource.DisplayMember = "SourceName"
Dim pkSource As PaperSource
For i = 0 to printDoc.PrinterSettings.PaperSources.Count - 1
pkSource = printDoc.PrinterSettings.PaperSources.Item(i)
comboPaperSource.Items.Add(pkSource)
Next示例3: ToString
' Add list of printer resolutions found on the printer to the combobox.
' The PrinterResolution's ToString() method will be used to provide the display string.
Dim pkResolution As PrinterResolution
For i = 0 to printDoc.PrinterSettings.PrinterResolutions.Count - 1
pkResolution = printDoc.PrinterSettings.PrinterResolutions.Item(i)
comboPrintResolution.Items.Add(pkResolution)
Next示例4:
Private Sub MyButtonPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyButtonPrint.Click
' Set the paper size based upon the selection in the combo box.
If comboPaperSize.SelectedIndex <> -1 Then
printDoc.DefaultPageSettings.PaperSize = _
printDoc.PrinterSettings.PaperSizes.Item(comboPaperSize.SelectedIndex)
End If
' Set the paper source based upon the selection in the combo box.
If comboPaperSource.SelectedIndex <> -1 Then
printDoc.DefaultPageSettings.PaperSource = _
printDoc.PrinterSettings.PaperSources.Item(comboPaperSource.SelectedIndex)
End If
' Set the printer resolution based upon the selection in the combo box.
If comboPrintResolution.SelectedIndex <> -1 Then
printDoc.DefaultPageSettings.PrinterResolution = _
printDoc.PrinterSettings.PrinterResolutions.Item(comboPrintResolution.SelectedIndex)
End If
' Print the document with the specified paper size and source.
printDoc.Print()
End Sub示例5: Client
' 导入命名空间
Imports System
Imports System.Drawing.Printing
Module Client
Sub Main()
Dim pd As PrintDocument = New PrintDocument()
Dim pg As PageSettings = pd.DefaultPageSettings
Console.WriteLine("PaperSize = " + pg.PaperSize.PaperName)
Console.WriteLine("PaperSource = " + pg.PaperSource.SourceName)
Console.WriteLine("PrinterResolution = " + _
pg.PrinterResolution.Kind.ToString())
Console.WriteLine("PrinterResolution X = " + _
pg.PrinterResolution.X.ToString())
Console.WriteLine("PrinterResolution Y = " + _
pg.PrinterResolution.Y.ToString())
End Sub
End Module