打印多个文档时，第一个文档使用错误的打印机答案

【问题标题】：When printing multiple documents the first one goes to the wrong printer打印多个文档时，第一个文档使用错误的打印机
【发布时间】：2014-01-15 08:35:11
【问题描述】：

我必须以编程方式创建和打印多个文档（标签）。我的代码正确地创建并打印了除第一个标签之外的每个标签；它被发送到默认打印机，而不是指定的打印机。有谁知道这个问题的解决办法吗？

Do While ....
txt = sometext
PrintDocument1.Print()
Loop

Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim prFont As New Font("Arial Narrow", 19, FontStyle.Bold)
Dim format As New StringFormat
format.Alignment = StringAlignment.Center

e.PageSettings.PrinterSettings.PrinterName = "\\TLN-CESDC2\TLN2-41-LABEL"
e.PageSettings.Margins.Bottom = 20
e.PageSettings.Margins.Left = 0
e.PageSettings.Margins.Right = 0
e.PageSettings.Margins.Top = 20
e.Graphics.DrawString(txt, prFont, Brushes.Black, 200, 15, format)
End Sub

【问题讨论】：

标签： .net vb.net printing

【解决方案1】：

在开始循环之前尝试设置打印机：

PrintDocument1.PrinterSettings.PrinterName = "\\TLN-CESDC2\TLN2-41-LABEL"
Do While ....
  txt = sometext
  PrintDocument1.Print()
Loop

见PrintDocument.PrinterSettings Property

【讨论】：

这非常有效。这似乎也是一种更正确的方法，因为我只是设置打印机一次而不是几十次。