Office中国论坛/Access中国论坛

标题: 求助：打印前，自动调整打印机和打印纸张？ [打印本页]

作者: 宏魔法师 时间: 2010-9-24 16:41
标题: 求助：打印前，自动调整打印机和打印纸张？
一般打印报告，在设计的时候就进行页面设置调整了，所以可以直接打印。但如果该电脑又使用了其他打印机，往往会跳到其他打印机的默认打印纸张和格式，为此常常调整，很是苦恼。
其实打印页面设置就是几个选项，如何用代码在打印之前设定，希望有高手能解疑？
1、第一个设定【页边距】
[attach]43565[/attach]
2、设定打印机，不是系统默认的。
[attach]43564[/attach]
3、设定打印方向和打印纸张，打印纸张是选择的预先设计好的特殊样式。
[attach]43566[/attach]

我在论坛找了一个比较接近我想法的代码
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
MDE不能调纸张哦

作者: 宏魔法师 时间: 2010-9-24 17:11
不好意思，问下MDE是什么？

作者: ui 时间: 2010-9-24 19:45
mdb是含源代码,生成mde是不含源代码,你要给用户使用,肯定要生成MDE.

作者: 宏魔法师 时间: 2010-9-24 20:58
哦，我做的是小程序，给内部同事用，就是带源代码的，方便工作的。

作者: 宏魔法师 时间: 2010-9-25 16:56
有谁能帮下忙？

作者: 宏魔法师 时间: 2010-10-3 20:53
是不是此问题很难啊！

作者: 宏魔法师 时间: 2010-10-4 18:43
继续顶

作者: 宏魔法师 时间: 2010-10-15 06:52
ding

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)