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

'关闭报表并保存

DoCmd.CloseacReport,rptName,acSaveYes

'预览报表

DoCmd.OpenReportrptName,acViewPreview

EndSub

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

access的papersize命令_[access报表]报表中使用自定义纸张,及设置自定义纸张大小
时间:2009-05-08 08:39:23 作者:摘要:报表中使用自定义纸张,及设置自定义纸张大小正文: 报表中使用自定义纸张,及设置自定义纸张大小 Private Type str_DE ...
access的papersize命令_自定义报表纸张大小的函数
时间:2017-05-07 08:58:28 作者:摘要:自定义报表纸张大小正文: Option Compare Database Option Explicit '------------ ...
access的papersize命令_终于部分解决了.NET Drawing.Printing中自定义PaperSize的问题
折磨我一周的问题总算解决了现在项目需要打印各种帐单打印机都是LQ-1600KIII针式打印机因为每种账单大小不同,主要是纸高度不同所以要控制打印一张的打印机卷纸长度最开始这样设置 print ...
access的papersize命令_巡检命令及查看参数
/dev/dsk/c3t2d0 PV Status available Total PE 17499 Free PE 0 Autoswitch On 20:# lanscan 查看网络接口状态UP正常 ...
linux查找文件夹命令_如何在Linux中使用命令行查找文件和文件夹
linux查找文件夹命令 Most people use a graphical file manager to find files in Linux, such as Nautilus in Gn ...
linux使用find命令_如何在Linux中使用FIND
linux使用find命令在最近的Opensource.com文章中 ,刘易斯·考尔斯介绍了find命令. 在日常工具箱中, find是功能更强大,更灵活的命令行程序之一,因此值得花一些时间在上面. ...
linux xargs命令_如何在Linux中使用xargs命令？
linux xargs命令 The xargs command allows us to pass the output of one command as the input for another ...
excel工资表标题行重复_隐藏Excel报表中的重复标题
excel工资表标题行重复 A few weeks ago we looked at a way to fill blank cells in an Excel report, so you'd be ...
hive 元数据自定义_如何在Hive中创建自定义函数UDF及如何直接通过Impala的同步元数据重用UDF的jar文件-阿里云开发者社区...
如何在Hive中创建自定义函数UDF及使用如何在Impala中使用Hive的自定义函数 UDF函数开发使用Intellij工具开发Hive的UDF函数,进行编译: 1.使用Intellij工具通过 ...
strace命令_在软件部署中使用 strace 进行调试
我最喜欢的用来解决"为什么这个软件无法在这台机器上运行?"这类问题的工具就是 strace. -- Simon Arneaud(作者) 我的大部分工作都涉及到部署软件系统,这意味着 ...

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

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

最新文章

热门文章