您的位置：首页 > 编程语言 > VB

VB.Net实现打印机纸张类型自动更换的方法

2010-12-21 13:50 405 查看

Dim ps As New PageSettings
Dim pDocument as new PrintDocument
Dim myPaperSize As System.Drawing.Printing.PaperSize

If ps.PrinterSettings.InstalledPrinters.Count > 0 Then '检测打印机是否存在
If ps.PrinterSettings.IsValid = True Then '检测打印机是否有效
For Each myPaperSize In ps.PrinterSettings.PaperSizes '检查该当前打印机是否支持A3的纸张
If myPaperSize.Kind = PaperKind.A3 Then
Exit For
End If
next
If myPaperSize.Kind <> PaperKind.A3 Then '如果当前打印机不支持A3纸张,那么自定义A3大小的纸张
myPaperSize = New System.Drawing.Printing.PaperSize("A3", 1169, 1654)
End If
ps.PaperSize = myPaperSize '设置为指定的纸张
ps.Landscape = False
pDocument.DefaultPageSettings = ps
pDocument.PrinterSettings.PrinterName = ps.PrinterSettings.PrinterName
End If
End If

=====================================================================================================================================

using System.Drawing.Printing.PrintDocument

using System.Drawing.Printing.PrinterSettings.PaperSizeCollection

using System.Drawing.Printing.PaperSize

using System.Drawing.Printing.PageSettings

/////////需要以上引用

PrintDocument pd = new PrintDocument();
PaperSize p=null;
foreach(PaperSize ps in pd.PrinterSettings.PaperSizes)
{ if(ps.PaperName.Equals("A3"))
p = ps;
}
pd.DefaultPageSettings.PaperSize = p;

pd.Print();

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航