重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
打印做得不多,以前做套打时发现,每台打印机定位都不一样,于是每台机子都加了个偏移设置
公司主营业务:成都网站设计、成都做网站、移动网站开发等业务。帮助企业客户真正实现互联网宣传,提高企业的竞争能力。创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化,感谢他们对我们的高要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联推出嫩江免费做网站回馈大家。
我的做法在白纸上打上一标尺,和一个上下边距为2CM的交叉点,然后用标尺量这2CM的偏移,设置完后,在这台打印机打印时,就给纸张加个偏移量,打印就正常了。可能你的原因和我一样。
另外也想问你一下,你这个条码是用什么打的。早先,我用立象的条码打印机打不干胶,很简单,激光打没用过,可能下次我也要用条码打印,我也用VB.net。求教.
Public Function EnumPrinters()
Dim PrinterSQL As String =
"SELECT * FROM Win32_Printer"
Dim
printers As Management.ManagementObjectCollection = New
Management.ManagementObjectSearcher(PrinterSQL).Get()
Dim printer As
Management.ManagementObject
For
Each printer In
printers
Dim pde As Management.PropertyDataCollection.PropertyDataEnumerator =
printer.Properties.GetEnumerator
While
(pde.MoveNext)
Try
If pde.Current.Name = "DriverName"
Then
combobox1.Items.Add(pde.Current.Value.ToString)
End
If
Catch ex As
Exception
MessageBox.Show(ex.ToString)
End
Try
End
While
Next
End Function
我是VB.NET 2010版本
窗体上添加一个按钮,代码如下:
Imports System.Drawing.Printing
Public Class Form1
'采用关键字WithEvents声明一个PrintDocument对象,会引发它的PrintPage事件
Private WithEvents My_PrintDocument As PrintDocument
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'实例化PrintDocument对象
My_PrintDocument = New PrintDocument
'显示默认的打印机名称
MsgBox(My_PrintDocument.PrinterSettings.PrinterName)
'显示默认的打印机纸张类型名称
MsgBox(My_PrintDocument.DefaultPageSettings.PaperSize.ToString)
End Sub
End Class
做不到的吧,VB还要检测文档程序,安全软件都通不过的,打印时本来就是可以选择打印机的,要开发这样的软件费用,还不如再配一台电脑了