[原创]页面设置中纸型的选择问题

pingfm · 发表于 2004-9-2 22:23

请问,页面设置中纸型列表框中可选择的纸型的多少,是否与打印机驱动程序不同而不同,怎么没有8开纸呢,能否人为地多加几项呢?

谢谢!!

守柔 · 发表于 2004-9-3 10:30

你可以自定义呀！

shanyue · 发表于 2004-9-4 08:13

好象不行,比如没有b5型,有16k,你自定义成b5的大小后,它自动变成16k的,

大概用虚拟打印机可以解决吧.

pingfm · 发表于 2004-9-4 20:49

守柔版主,自定义是可以,但是每次都得定义,能否把定义的结果记下来,比如定义了8开纸型,系统自动记住,下次就可以自动选择了,这样就更方便l了.

三楼所说的虚拟打印机怎么实现呀?

谢谢!!

守柔 · 发表于 2004-9-5 05:13

以下是引用pingfm在2004-9-4 20:49:00的发言：

守柔版主,自定义是可以,但是每次都得定义,能否把定义的结果记下来,比如定义了8开纸型,系统自动记住,下次就可以自动选择了,这样就更方便l了.

三楼所说的虚拟打印机怎么实现呀?

谢谢!!

pICTRSts.rar (7.14 KB, 下载次数: 16)

我做了一个，这是一个典型的修改WORD命令的案例你可以在附件中点击页面设置或者双击标尺等等将它会出来一个消息框根据你的选择进入页面设置对话框。

本来如果你确定需要什么内容的话直接录一个宏更好，但上述更灵活保留了如纸张方向等等如果你还觉得满意可以将此宏命令复制到WORD的模板中。

以下是该命令的代码：

Sub FilePageSetup() Dim MyDialog As Dialog, Pt As Byte Set MyDialog = Dialogs(wdDialogFilePageSetup) Pt = MsgBox("你是否要将纸张大小定义为8开纸?,按Yes确定,按No进入默认设置,按Cancel退出!", vbYesNoCancel + vbInformation) With MyDialog If Pt = vbYes Then .DefaultTab = wdDialogFilePageSetupTabPaper .TopMargin = CentimetersToPoints(2) '设置页边距上为2厘米 .BottomMargin = CentimetersToPoints(2) '下为2厘米 .LeftMargin = CentimetersToPoints(2.5) '左为2.5厘米 .RightMargin = CentimetersToPoints(2.5) '右为2.5厘米 .PageWidth = 15 .PageHeight = 20 .Show ElseIf Pt = vbNo Then .Show Else Exit Sub End If End With End Sub 具体放置位置请在该文档时按下ALT+F11，看一下然后将其粘贴于“normal“（全局模板）的thisdocument 的代码窗口中。

pingfm · 发表于 2004-9-7 21:04

同一型号打印机的驱动程序,在windows98操作系统下安装,纸型中有8开纸的选择,而在windows XP下,却没有8开纸的选择.

楼上版主的办法虽然也可以自动选择8开纸,但是在页面设置前弹出一个提示窗口,还要回答是与否,不是很顺手.如果能在页面设置的纸型选择下拉列表框中,有各种可能的纸型选择,就更好了.

		自动登录	找回密码
密码			免费注册