Question

VB.NET打印编程问题，打印机为激光打印机。

打印时实际效果和预览效果有区别。预览效果居中，但是打印的时候会偏出去。只好人为的事先补偿，导致如下图的打印预览字符越界而打印机打印出来没问题。求高手解决。打印机为激光打印机。自定义页面如下: '设置打印纸张等设置 Public Function SetPrintSettings() As Boolean PrintDocument1.DocumentName = "青山百货批发部货单打印" PageSetupDialog1.Document = PrintDocument1 Dim ps As New PageSettings Dim myPaperSize As System.Drawing.Printing.PaperSize = New Printing.PaperSize If PrinterSettings.InstalledPrinters.Count > 0 Then '检测打印机是否存在 If ps.PrinterSettings.IsValid = True Then '检测打印机是否有效 For Each myPaperSize In ps.PrinterSettings.PaperSizes '检查该当前打印机是否支持A5的纸张 If myPaperSize.Kind = PaperKind.A5 Then Exit For End If Next If myPaperSize.Kind <> PaperKind.A5 Then '如果当前打印机不支持A5纸张,那么自定义A5大小的纸张 myPaperSize = New System.Drawing.Printing.PaperSize("A5", 148, 210) End If ps.PaperSize = myPaperSize '设置为指定的纸张 ps.Landscape = False '竖向打印 PrintDocument1.DefaultPageSettings = ps PrintDocument1.PrinterSettings.PrinterName = ps.PrinterSettings.PrinterName Return True End If End If Return False End Function

Answer 1

打印做得不多，以前做套打时发现，每台打印机定位都不一样，于是每台机子都加了个偏移设置
我的做法在白纸上打上一标尺，和一个上下边距为2CM的交叉点，然后用标尺量这2CM的偏移，设置完后，在这台打印机打印时，就给纸张加个偏移量，打印就正常了。可能你的原因和我一样。
另外也想问你一下，你这个条码是用什么打的。早先，我用立象的条码打印机打不干胶，很简单，激光打没用过，可能下次我也要用条码打印，我也用VB.net。求教.