access的papersize命令_如何在报表中使用自定义尺寸的纸张

'当该报表使用的是自定义纸张时，则显示自定义纸张的大小，

'并询问是否更改纸张的大小并进行设置；

'当该报表使用的是标准纸张时，则询问是否使用自定义纸张，

'如果选择“是”，则要求输入纸张的大小并进行设置。

DimDevStringAsstr_DEVMODE

DimDMAstype_DEVMODE

DimstrDevModeExtraAsString

DimrptAsReport

DimintResponseAsInteger

'在设计视图下打开报表

DoCmd.OpenReportrptName,acDesign

Setrpt=Reports(rptName)

IfNotIsNull(rpt.PrtDevMode)Then

strDevModeExtra=rpt.PrtDevMode

'获取当前的DEVMODE结构

DevString.RGB=strDevModeExtra

LSetDM=DevString

IfDM.intPaperSize=256Then

'显示用户自定义纸张的尺寸

intResponse=MsgBox("当前的自定义纸张为(mm)："&_

DM.intPaperWidth/10&"(宽)X"&_

DM.intPaperLength/10&"(长)。你想改变吗？",_

vbYesNo+vbQuestion)

Else

'非自定义纸张

intResponse=MsgBox("报表没有使用自定义纸张。"&_

"你想使用自定义纸张吗?",vbYesNo+vbQuestion)

EndIf

IfintResponse=6Then

'用户要改变纸张设置，初始化DM的各个域

DM.lngFields=DM.lngFieldsOrDM.intPaperSizeOrDM.intPaperLength_

OrDM.intPaperWidth

'设置为自定义纸张

DM.intPaperSize=256

'提示输入长度和宽度

DM.intPaperLength=InputBox("请输入纸张的长度(mm)：")*10

DM.intPaperWidth=InputBox("请输入纸张的宽度(mm)：")*10

'更新属性值

LSetDevString=DM

Mid(strDevModeExtra,1,94)=DevString.RGB

rpt.PrtDevMode=strDevModeExtra

EndIf

EndIf

'关闭报表并保存

DoCmd.CloseacReport,rptName,acSaveYes

'预览报表

DoCmd.OpenReportrptName,acViewPreview

EndSub

相关链接：