print_page.bas

我自己写的。缓和 我自己写的。缓和 我自己写的。缓和 我自己写的。缓和

Attribute VB_Name = "print_page"
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 = 打印方向名或值
'vbPROPortrait=1 纵向打印
'vbPROLandscape=2 横向打印
'---------------------------------------------------------------

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.ScaleMode = 1 '打印度量单位设定值
vbTwips = 1 '单位缇，每英寸1440缇
vbPoints = 2 '单位点，每英寸72点
vbPixels = 3 '单位像素
vbInches = 5 '英寸
vbMilimeters = 6 '毫米
vbCentimeters = 7 '厘米 建议用毫米
Printer.CurrentX = 坐标值
Printer.CurrentY = 坐标值
Printer.Print Admin_admin
Printer.FontName = "宋体"
Printer.FontSize = 20 ' 字号值 以磅为单位
Printer.EndDoc '(如无此局则打印机不工作)
Printer.NewPage '(无此句打印机不换页)
Printer.KillDoc '(无此句不能断开计算机和打印机的连接)

'=================================================================================