Printer.ScaleLeft ,Printer.ScaleTop 的单位是英寸. 调用API函数: Public Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long Public Const LOGPIXELSX = 88 Public Const LOGPIXELSY = 90 Private Sub Form_Load() tempx = GetDeviceCaps(Printer.hdc, LOGPIXELSX) tempy = GetDeviceCaps(Printer.hdc, LOGPIXELSY) Printer.ScaleLeft = 2 * tempx '''''''''(2是2英寸,你要多大可以自己设置) Printer.ScaleTop = 2 * tempy '''''''''(2是2英寸,你要多大可以自己设置) end sub
调用API函数:
Public Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Public Const LOGPIXELSX = 88
Public Const LOGPIXELSY = 90 Private Sub Form_Load()
tempx = GetDeviceCaps(Printer.hdc, LOGPIXELSX)
tempy = GetDeviceCaps(Printer.hdc, LOGPIXELSY)
Printer.ScaleLeft = 2 * tempx '''''''''(2是2英寸,你要多大可以自己设置)
Printer.ScaleTop = 2 * tempy '''''''''(2是2英寸,你要多大可以自己设置)
end sub
http://expert.csdn.net/Expert/topic/2254/2254030.xml?temp=.7237512
WIN2000下,我的电脑——》控制面版——》打印机——》左上角的文件中——》服务器属性
——》选上“创建新格式”输入相应的泡纸的大小——》保存就行了