Printer.Height=10*567
网站建设哪家好，找成都创新互联公司！专注于网页设计、网站建设、微信开发、微信小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了新会免费建站欢迎大家使用！
Printer.Width=5*567
Printer.ScaleWidth = 210
Printer.ScaleHeight = 297
Printer.ScaleMode = 6 '设置打印的单位
Printer.PaperSize = vbPRPSA4 '定义纸张大小为A4
Printer.FontSize = 11
'如何用printer设置打印方向为横向打印
---------------------------------------------------------------
Printer.Orientation=VbPRORPortrait'纵向打印
Printer.Orientation=VbPRORLandscape'横向打印
---------------------------------------------------------------
Printer.Orientation = VbPRORLandscape
---------------------------------------------------------------
Printer.Orientation = 2
'设置打印页边距
'你可以使用打印机的Scale属性来设置打印页边距。下面的代码设置左边距为1/2英寸。右边距为3/4英寸。乘以1440是将英尺转换成twips。
Printer.ScaleLeft = -0.75 * 1440
Printer.ScaleTop = -0.5 * 1440
Printer.CurrentX = 0
Printer.CurrentY = 0
缇是一个与屏幕无关的单位，用来保证屏幕应用程序对屏幕元素的定位和比例在所有的显示系统上的一致性。一缇等价于 1/20 个打印机的磅。一逻辑英寸大约有 1440 缇，一逻辑厘米约 567 缇（打印时的一英寸或一厘米所对应的屏幕上的长度）。
How To Print Using Custom Page Sizes on Windows NT and Windows 2000
打印文本直接用Print方法，见下列代码：
Printer. Print “Hello, China computerWorld!” 打印字符串
Printer对象还有一些窗体和图形框都没有方法：
NewPage告诉打印机，程序对当前输出页的发送已经结束，Printer对象应开始新的一页。
EndDoc告诉VB，程序创建文档结束，V应将它发送到物理打印机上打印。
KillDoc取消当前打印作业。应用程序应该终止由EndDoc和KillDoc所设定的每个打印作业。
Zoom属性用于定义打印输出的缩放因子。
Copies属性用于定义打印的副本数目。
=================================================================================
Printer.Orientation=打印方向名或值
vbPROPortrait=1 纵向打印
vbPROLandscape=2 横向打印
Printer.ScaleMode=打印度量单位设定值
vbTwips=1 单位缇，每英寸1440缇
vbPoints=2 单位点，每英寸72点
vbPixels=3 单位像素
vbInches=5 英寸
vbMilimeters=6 毫米
vbCentimeters=7 厘米 建议用毫米
Printer.CurrentX=坐标值
Printer.CurrentY=坐标值
Printer.Print 字符串
Printer.FontName="字体名称"
Printer.FontSize= 字号值 以磅为单位
Printer.EndDoc(如无此局则打印机不工作)
Printer.NewPage(无此句打印机不换页)
Printer.KillDoc(无此句不能断开计算机和打印机的连接)
上面3条语句非常重要
=================================================================================
Printer.Height=10*567
Printer.Width=5*567
Printer.ScaleWidth = 210
Printer.ScaleHeight = 297
Printer.ScaleMode = 6 '设置打印的单位
Printer.PaperSize = vbPRPSA4 '定义纸张大小为A4
Printer.FontSize = 11
'如何用printer设置打印方向为横向打印
---------------------------------------------------------------
Printer.Orientation=VbPRORPortrait'纵向打印
Printer.Orientation=VbPRORLandscape'横向打印
---------------------------------------------------------------
Printer.Orientation = VbPRORLandscape
---------------------------------------------------------------
Printer.Orientation = 2
'设置打印页边距
'你可以使用打印机的Scale属性来设置打印页边距。下面的代码设置左边距为1/2英寸。右边距为3/4英寸。乘以1440是将英尺转换成twips。
Printer.ScaleLeft = -0.75 * 1440
Printer.ScaleTop = -0.5 * 1440
Printer.CurrentX = 0
Printer.CurrentY = 0
缇是一个与屏幕无关的单位，用来保证屏幕应用程序对屏幕元素的定位和比例在所有的显示系统上的一致性。一缇等价于 1/20 个打印机的磅。一逻辑英寸大约有 1440 缇，一逻辑厘米约 567 缇（打印时的一英寸或一厘米所对应的屏幕上的长度）。
How To Print Using Custom Page Sizes on Windows NT and Windows 2000
打印文本直接用Print方法，见下列代码：
Printer. Print “Hello, China computerWorld!” 打印字符串
Printer对象还有一些窗体和图形框都没有方法：
NewPage告诉打印机，程序对当前输出页的发送已经结束，Printer对象应开始新的一页。
EndDoc告诉VB，程序创建文档结束，V应将它发送到物理打印机上打印。
KillDoc取消当前打印作业。应用程序应该终止由EndDoc和KillDoc所设定的每个打印作业。
Zoom属性用于定义打印输出的缩放因子。
Copies属性用于定义打印的副本数目。
=================================================================================
Printer.Orientation=打印方向名或值
vbPROPortrait=1 纵向打印
vbPROLandscape=2 横向打印
Printer.ScaleMode=打印度量单位设定值
vbTwips=1 单位缇，每英寸1440缇
vbPoints=2 单位点，每英寸72点
vbPixels=3 单位像素
vbInches=5 英寸
vbMilimeters=6 毫米
vbCentimeters=7 厘米 建议用毫米
Printer.CurrentX=坐标值
Printer.CurrentY=坐标值
Printer.Print 字符串
Printer.FontName="字体名称"
Printer.FontSize= 字号值 以磅为单位
Printer.EndDoc(如无此局则打印机不工作)
Printer.NewPage(无此句打印机不换页)
Printer.KillDoc(无此句不能断开计算机和打印机的连接)
上面3条语句非常重要
=================================================================================
VB6.0中换页：
Printer 对象，用 NewPage 和 EndDoc 方法打印 Printer 对象的内容。
一旦将文本和图形放到 Printer 对象中，就可用 EndDoc 方法打印该内容。EndDoc 方法要换页，并将悬置的所有输出都送给假脱机系统。
创建多页文档
打印较长的文档时，可用 NewPage 方法，在代码中指定新的一页。例如：
Printer.Print "This is page 1."
Printer.NewPage
Printer.Print "This is page 2."
Printer.EndDoc
在字符串中使用换页符(Chr$(12))。
打印做得不多，以前做套打时发现，每台打印机定位都不一样，于是每台机子都加了个偏移设置
我的做法在白纸上打上一标尺，和一个上下边距为2CM的交叉点，然后用标尺量这2CM的偏移，设置完后，在这台打印机打印时，就给纸张加个偏移量，打印就正常了。可能你的原因和我一样。
另外也想问你一下，你这个条码是用什么打的。早先，我用立象的条码打印机打不干胶，很简单，激光打没用过，可能下次我也要用条码打印，我也用VB.net。求教.
出现这个现象通常有两种情况：
1.源程序代码未进行控制或控制有误。
2.打印机内部设定了文档内容打印完成后进纸/换页。
如果你确定你的代码没有向打印机发送进纸/走纸/换页的指令，那么就应该是第二种情况，试试更改一下打印机的设置。
