求助：打印前，自动调整打印机和打印纸张？

宏魔法师 · 发表于 2010-9-24 16:41:00

一般打印报告，在设计的时候就进行页面设置调整了，所以可以直接打印。但如果该电脑又使用了其他打印机，往往会跳到其他打印机的默认打印纸张和格式，为此常常调整，很是苦恼。
其实打印页面设置就是几个选项，如何用代码在打印之前设定，希望有高手能解疑？
1、第一个设定【页边距】

2、设定打印机，不是系统默认的。

3、设定打印方向和打印纸张，打印纸张是选择的预先设计好的特殊样式。

我在论坛找了一个比较接近我想法的代码
Dim Prt As Printer
Dim Rpt As Report
Dim ID As Integer

ID = PaperSizeID(Me!CmbSize)
Set Prt = Printers(Me!CmbPrinter.Value)

DoCmd.OpenReport Me!CmbReport, acViewDesign, "", "", acHidden
Set Rpt = Reports(Me!CmbReport)
      Prt.PaperSize = ID
      Prt.Orientation = Me.FraOrientation
      Rpt.Printer = Prt

DoCmd.Close acReport, Me!CmbReport, acSaveYes
但里面只是纸张的ID号，我想直接给他一个名字，请各位高手看看，代码该如何写，或者提供个例子最好了。

ui · 发表于 2010-9-24 16:52:38

MDE不能调纸张哦

宏魔法师 · 发表于 2010-9-24 17:11:39

不好意思，问下MDE是什么？

ui · 发表于 2010-9-24 19:45:59

mdb是含源代码,生成mde是不含源代码,你要给用户使用,肯定要生成MDE.

宏魔法师 · 发表于 2010-9-24 20:58:45

哦，我做的是小程序，给内部同事用，就是带源代码的，方便工作的。

宏魔法师 · 发表于 2010-9-25 16:56:08

有谁能帮下忙？

宏魔法师 · 发表于 2010-10-3 20:53:20

是不是此问题很难啊！

宏魔法师 · 发表于 2010-10-4 18:43:10

继续顶

宏魔法师 · 发表于 2010-10-15 06:52:14

ding

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[报表] 求助：打印前，自动调整打印机和打印纸张？

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)