VB6定义纸张大小,该如何解决

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