VB6定义纸张大小
公司有个“请款审批单”，现在想通过编程来打印，直接用printer命令来定位打印，但是，对于纸张的定义，找了很多书，看了很多网页，都没有讲VB6里的纸张定义单位是毫米？还是像素？
审批单的尺寸是188*130毫米，我在程序里这样定义不知道对不对？
Printer.ScaleWidth = 188
Printer.ScaleHeight = 130
问的问题是，如何定义纸张大小？
简单的程序抄一部分如下。
- VB code
Private Sub Command1_Click()Dim hang As Integerhang = 30 Printer.FontSize = 12 Printer.FontName = "黑体" Printer.FontBold = True Printer.ScaleWidth = 188 Printer.ScaleHeight = 130 Printer.CurrentX = hang Printer.CurrentY = 16 Printer.Print "信息部" Printer.CurrentX = hang + 49 Printer.CurrentY = 15 Printer.Print Year(Date) Printer.CurrentX = hang + 62 Printer.CurrentY = 15 Printer.Print Month(Date) Printer.CurrentX = hang + 75 Printer.CurrentY = 15 Printer.Print Day(Date) Printer.EndDocEnd Sub
[解决办法]
- VB code
'***********************************'1毫米=0.03937英寸'1英寸=1440提(twips)'A4纸=210毫米*297毫米'***********************************dim PrnUnit as longPrinter.ScaleMode = vbTwipsPrnUnit = 0.03937 * 1440 '设置最小打印单位Printer.ScaleWidth = 188*PrnUnitPrinter.ScaleHeight = 130*PrnUnit