{"id":54056,"date":"2025-08-12T21:39:48","date_gmt":"2025-08-12T13:39:48","guid":{"rendered":"https:\/\/www.wsisp.com\/helps\/54056.html"},"modified":"2025-08-12T21:39:48","modified_gmt":"2025-08-12T13:39:48","slug":"%e3%80%90vb-net%e3%80%91%e5%b0%86%e6%a0%87%e7%ad%be%e4%bf%a1%e6%81%af%e7%b2%be%e7%a1%ae%e6%89%93%e5%8d%b0%e5%88%b081mmx60mm%e6%a0%87%e7%ad%be%e7%ba%b8%e4%b8%8a%ef%bc%9a","status":"publish","type":"post","link":"https:\/\/www.wsisp.com\/helps\/54056.html","title":{"rendered":"\u3010VB.NET\u3011\u5c06\u6807\u7b7e\u4fe1\u606f\u7cbe\u786e\u6253\u5370\u523081mm\u00d760mm\u6807\u7b7e\u7eb8\u4e0a\uff1a"},"content":{"rendered":"

\u5c06\u6807\u7b7e\u4fe1\u606f\u7cbe\u786e\u6253\u5370\u523081mm\u00d761mm\u6807\u7b7e\u7eb8\u4e0a：<\/p>\n

\u5b8c\u6574\u5b9e\u73b0\u4ee3\u7801（TableLayoutPanel\u7248\u672c）<\/h4>\n

Imports System.Drawing
\nImports System.Drawing.Printing
\nImports System.Windows.Forms<\/p>\n

Public Class LabelPrinterForm
\n Private WithEvents printDocument As New PrintDocument()
\n Private labelWidthMM As Integer = 81 ' \u6807\u7b7e\u5bbd\u5ea6(\u6beb\u7c73)
\n Private labelHeightMM As Integer = 60 ' \u6807\u7b7e\u9ad8\u5ea6(\u6beb\u7c73)
\n Private tableLayout As TableLayoutPanel<\/p>\n

Public Sub New()
\n InitializeComponent()<\/p>\n

' \u521d\u59cb\u5316\u6253\u5370\u8bbe\u7f6e
\n printDocument.DocumentName = "DL-888T\u6807\u7b7e\u6253\u5370"
\n SetupPrinterSettings()<\/p>\n

' \u521b\u5efa\u5305\u542b\u6807\u7b7e\u5185\u5bb9\u7684TableLayoutPanel
\n CreateLabelContentTable()
\n End Sub<\/p>\n

' \u521b\u5efa\u6807\u7b7e\u5185\u5bb9\u8868\u683c
\n Private Sub CreateLabelContentTable()
\n tableLayout = New TableLayoutPanel()
\n tableLayout.Dock = DockStyle.Fill
\n tableLayout.ColumnCount = 1
\n tableLayout.RowCount = 6
\n tableLayout.CellBorderStyle = TableLayoutPanelCellBorderStyle.None<\/p>\n

' \u8bbe\u7f6e\u884c\u9ad8（\u50cf\u7d20\u5355\u4f4d，\u6839\u636e\u5b9e\u9645\u8c03\u6574）
\n tableLayout.RowStyles.Add(New RowStyle(SizeType.Absolute, 30)) ' \u54c1\u724c\u884c
\n tableLayout.RowStyles.Add(New RowStyle(SizeType.Absolute, 25)) ' \u578b\u53f7\u884c
\n tableLayout.RowStyles.Add(New RowStyle(SizeType.Absolute, 25)) ' \u673a\u53f7\u884c
\n tableLayout.RowStyles.Add(New RowStyle(SizeType.Absolute, 25)) ' \u7535\u6e90\u884c
\n tableLayout.RowStyles.Add(New RowStyle(SizeType.Absolute, 40)) ' \u8b66\u544a\u884c
\n tableLayout.RowStyles.Add(New RowStyle(SizeType.Absolute, 20)) ' \u5236\u9020\u5546\u884c<\/p>\n

' 1. \u6dfb\u52a0\u54c1\u724c\u884c
\n Dim lblBrand As New Label()
\n lblBrand.Text = "deli\u5f97\u529b \u6761\u7801\u6807\u7b7e\u6253\u5370\u673a"
\n lblBrand.Font = New Font("Microsoft YaHei", 10, FontStyle.Bold)
\n lblBrand.TextAlign = ContentAlignment.MiddleLeft
\n tableLayout.Controls.Add(lblBrand, 0, 0)<\/p>\n

' 2. \u6dfb\u52a0\u578b\u53f7\u884c
\n Dim lblModel As New Label()
\n lblModel.Text = "\u578b\u53f7：DL-888T"
\n lblModel.Font = New Font("Microsoft YaHei", 9)
\n lblModel.TextAlign = ContentAlignment.MiddleLeft
\n tableLayout.Controls.Add(lblModel, 0, 1)<\/p>\n

' 3. \u6dfb\u52a0\u673a\u53f7\u884c
\n Dim lblSerial As New Label()
\n lblSerial.Text = "\u673a\u53f7：62452801737"
\n lblSerial.Font = New Font("Microsoft YaHei", 9)
\n lblSerial.TextAlign = ContentAlignment.MiddleLeft
\n tableLayout.Controls.Add(lblSerial, 0, 2)<\/p>\n

' 4. \u6dfb\u52a0\u7535\u6e90\u884c
\n Dim lblPower As New Label()
\n lblPower.Text = "\u7535\u6e90：24V===2.0A"
\n lblPower.Font = New Font("Microsoft YaHei", 9)
\n lblPower.TextAlign = ContentAlignment.MiddleLeft
\n tableLayout.Controls.Add(lblPower, 0, 3)<\/p>\n

' 5. \u6dfb\u52a0\u8b66\u544a\u884c（\u5e26\u56fe\u6807）
\n Dim warningPanel As New Panel()
\n warningPanel.Dock = DockStyle.Fill<\/p>\n

' \u8b66\u544a\u56fe\u6807
\n Dim picWarning As New PictureBox()
\n picWarning.Image = SystemIcons.Warning.ToBitmap()
\n picWarning.SizeMode = PictureBoxSizeMode.Zoom
\n picWarning.Size = New Size(20, 20)
\n picWarning.Location = New Point(0, 10)<\/p>\n

' \u8b66\u544a\u6587\u672c
\n Dim lblWarning As New Label()
\n lblWarning.Text = "\u6ce8\u610f：\u4f7f\u7528\u5176\u4ed6\u6570\u503c\u4e4b\u7535\u538b\u4f1a\u4f7f\u673a\u4ef6\u635f\u574f；\u5728\u8fdb\u884c\u7ef4\u4fee\/\u7ef4\u62a4\u65f6\u5fc5\u987b\u5207\u65ad\u7535\u6e90\u3002"
\n lblWarning.Font = New Font("Microsoft YaHei", 8)
\n lblWarning.Location = New Point(25, 5)
\n lblWarning.AutoSize = True<\/p>\n

warningPanel.Controls.Add(picWarning)
\n warningPanel.Controls.Add(lblWarning)
\n tableLayout.Controls.Add(warningPanel, 0, 4)<\/p>\n

' 6. \u6dfb\u52a0\u5236\u9020\u5546\u884c
\n Dim lblMaker As New Label()
\n lblMaker.Text = "\u5f97\u529b\u96c6\u56e2\u6709\u9650\u516c\u53f8 \u4e2d\u56fd\u5236\u9020"
\n lblMaker.Font = New Font("Microsoft YaHei", 8, FontStyle.Italic)
\n lblMaker.TextAlign = ContentAlignment.MiddleRight
\n tableLayout.Controls.Add(lblMaker, 0, 5)<\/p>\n

' \u6dfb\u52a0\u5230\u7a97\u4f53
\n Me.Controls.Add(tableLayout)
\n End Sub<\/p>\n

' \u914d\u7f6e\u6253\u5370\u673a\u8bbe\u7f6e
\n Private Sub SetupPrinterSettings()
\n ' \u8f6c\u6362\u4e3a1\/100\u82f1\u5bf8（\u6253\u5370\u673a\u5355\u4f4d）
\n Dim widthInch As Integer = CInt(labelWidthMM \/ 25.4 * 100)
\n Dim heightInch As Integer = CInt(labelHeightMM \/ 25.4 * 100)<\/p>\n

' \u521b\u5efa\u81ea\u5b9a\u4e49\u7eb8\u5f20\u5927\u5c0f
\n printDocument.DefaultPageSettings.PaperSize = New PaperSize("Custom", widthInch, heightInch)<\/p>\n

' \u8bbe\u7f6e\u6700\u5c0f\u8fb9\u8ddd（\u6839\u636e\u6253\u5370\u673a\u80fd\u529b\u8c03\u6574）
\n printDocument.DefaultPageSettings.Margins = New Margins(10, 10, 10, 10)<\/p>\n

' \u914d\u7f6e\u9ad8\u8d28\u91cf\u6253\u5370
\n ConfigurePrinterForQuality()
\n End Sub<\/p>\n

' \u6253\u5370\u6309\u94ae\u70b9\u51fb\u4e8b\u4ef6
\n Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click
\n ' \u4f18\u5316\u6253\u5370\u5b57\u4f53
\n OptimizePrintFonts()<\/p>\n

Dim printDialog As New PrintDialog()
\n printDialog.Document = printDocument<\/p>\n

If printDialog.ShowDialog() = DialogResult.OK Then
\n printDocument.Print()
\n End If
\n End Sub<\/p>\n

' \u6253\u5370\u9875\u9762\u4e8b\u4ef6
\n Private Sub PrintDocument_PrintPage(sender As Object, e As PrintPageEventArgs) Handles printDocument.PrintPage
\n ' 1. \u8bbe\u7f6e\u9ad8\u8d28\u91cf\u6253\u5370\u53c2\u6570
\n e.Graphics.InterpolationMode = Drawing2D.InterpolationMode.High
\n e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.None
\n e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.SingleBitPerPixelGridFit<\/p>\n

' 2. \u8ba1\u7b97\u7f29\u653e\u6bd4\u4f8b（\u4f7f\u8868\u683c\u9002\u5e94\u6807\u7b7e）
\n Dim scaleX As Single = (e.MarginBounds.Width – 5) \/ tableLayout.Width
\n Dim scaleY As Single = (e.MarginBounds.Height – 5) \/ tableLayout.Height
\n Dim scale As Single = Math.Min(scaleX, scaleY) * 0.95 ' \u75595%\u8fb9\u8ddd<\/p>\n

' 3. \u521b\u5efa\u4f4d\u56fe\u6765\u6355\u83b7\u8868\u683c\u5185\u5bb9
\n Dim tableBitmap As New Bitmap(tableLayout.Width, tableLayout.Height)
\n tableLayout.DrawToBitmap(tableBitmap, New Rectangle(0, 0, tableLayout.Width, tableLayout.Height))<\/p>\n

' 4. \u7ed8\u5236\u8868\u683c\u5230\u6253\u5370\u9875\u9762（\u4fdd\u6301\u6bd4\u4f8b）
\n e.Graphics.DrawImage(tableBitmap,
\n e.MarginBounds.Left + (e.MarginBounds.Width – tableLayout.Width * scale) \/ 2,
\n e.MarginBounds.Top + (e.MarginBounds.Height – tableLayout.Height * scale) \/ 2,
\n tableLayout.Width * scale,
\n tableLayout.Height * scale)<\/p>\n

' 5. \u91ca\u653e\u8d44\u6e90
\n tableBitmap.Dispose()<\/p>\n

e.HasMorePages = False
\n End Sub<\/p>\n

' \u4f18\u5316\u6253\u5370\u5b57\u4f53（\u89e3\u51b3\u5c0f\u5b57\u6a21\u7cca\u95ee\u9898）
\n Private Sub OptimizePrintFonts()
\n For Each ctrl As Control In tableLayout.Controls
\n If TypeOf ctrl Is Label Then
\n Dim lbl As Label = DirectCast(ctrl, Label)
\n ' \u4f7f\u7528\u66f4\u6e05\u6670\u7684\u5b57\u4f53\u914d\u7f6e
\n lbl.Font = New Font("Microsoft YaHei", lbl.Font.Size, lbl.Font.Style, GraphicsUnit.Point, 0, True)<\/p>\n

' \u91cd\u8981\u5185\u5bb9\u52a0\u7c97
\n If lbl.Text.StartsWith("\u578b\u53f7：") Or lbl.Text.StartsWith("\u673a\u53f7：") Then
\n lbl.Font = New Font(lbl.Font, FontStyle.Bold)
\n End If
\n ElseIf TypeOf ctrl Is Panel Then
\n ' \u5904\u7406\u8b66\u544a\u9762\u677f\u4e2d\u7684\u63a7\u4ef6
\n For Each childCtrl As Control In ctrl.Controls
\n If TypeOf childCtrl Is Label Then
\n Dim lbl As Label = DirectCast(childCtrl, Label)
\n lbl.Font = New Font("Microsoft YaHei", 8, FontStyle.Regular, GraphicsUnit.Point, 0, True)
\n End If
\n Next
\n End If
\n Next
\n End Sub<\/p>\n

' \u914d\u7f6e\u6253\u5370\u673a\u8d28\u91cf
\n Private Sub ConfigurePrinterForQuality()
\n ' \u5c1d\u8bd5\u8bbe\u7f6e\u6700\u9ad8\u5206\u8fa8\u7387
\n Dim maxRes = printDocument.PrinterSettings.PrinterResolutions _
\n .Cast(Of PrinterResolution)() _
\n .OrderByDescending(Function(r) r.X) _
\n .FirstOrDefault()<\/p>\n

If maxRes IsNot Nothing AndAlso maxRes.X >= 300 Then
\n printDocument.DefaultPageSettings.PrinterResolution = maxRes
\n End If<\/p>\n

' \u8bbe\u7f6e\u6807\u7b7e\u7eb8\u7c7b\u578b
\n printDocument.DefaultPageSettings.PaperSource = printDocument.PrinterSettings.PaperSources _
\n .Cast(Of PaperSource)() _
\n .FirstOrDefault(Function(ps) ps.SourceName.Contains("Label") OrElse
\n ps.Kind = PaperSourceKind.AutomaticFeed)
\n End Sub
\nEnd Class<\/p>\n

\u5173\u952e\u4f18\u5316\u70b9\u8bf4\u660e<\/h4>\n
  • \n

    \u7cbe\u786e\u7684\u6807\u7b7e\u5185\u5bb9\u5e03\u5c40：<\/p>\n