一个简单的问题

oceanfloor

下面是一个函数我想问一下left!,top!,right!,bottom!是什么数据类型，还有1440（inches）是多少毫米，或是多少厘米
'------------------------Function-----------------------------
Public Function SetReportMarginDefault(strReportName As String, left!, top!, right!, bottom!)
Dim PrtMipString As str_PRTMIP
Dim PM As type_PRTMIP
Dim objRpt As Report
Dim tempPrtMip As String

DoCmd.Echo False
DoCmd.OpenReport strReportName, acDesign
Reports(strReportName).Painting = False
Set objRpt = Reports(strReportName)

PrtMipString.RGB = objRpt.PrtMip

LSet PM = PrtMipString
'Use 1440 for US (inches), 567 (rest of the world) (centimeters)
PM.xLeftMargin = left * 1440
PM.yTopMargin = top * 1440
PM.xRightMargin = right * 1440
PM.yBottomMargin = bottom * 1440

LSet PrtMipString = PM

objRpt.PrtMip = PrtMipString.RGB

'Make sure report has the focus
DoCmd.SelectObject acReport, strReportName
'Save the Report
DoCmd.DoMenuItem 7, acFile, 4, , acMenuVer70

CloseRpt:
DoCmd.Close acReport, strReportName
DoCmd.Echo True
'You're done.

End Function

oceanfloor

怎么没有回答啊，我很急

大熊

缇，1缇的长度等于1/1440英寸；1/567厘米;1/20磅

oceanfloor

什么是缇？？？

Roadbeg

vb 中的默认单位

oceanfloor

能告诉我这个函数怎么调用，怎么用参数

大熊

Call SetReportMarginDefault(报表名, 左, 上, 右,下)

eio

无法使用，请大熊指教或做简单的实例。

oceanfloor

eio说的对我在调用也无法使用，请大熊多多指教

大熊

Dim PrtMipString As str_PRTMIP
Dim PM As type_PRTMIP
你没抄来type，当然不能用。