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。求教.

Answer 2

设置纸张 页边距！！！！