注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

专修培训

——专业计算机培训机构

 
 
 

日志

 
 

VB中的打印  

2009-06-22 20:47:51|  分类: 学习 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
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条语句非常重要
  评论这张
 
阅读(246)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017