求救！如何用sendkeys实现页面自动设置？

liu720513

SendKeys "s{right}{tab 2}{home}"  

用s键调出“页面设置”窗口成功，但接下来的right及其后面的键均发送失败。为什么？

哪位老师肯出手相救，本人这里跪谢了！

tmtony

页面设置可使用
DoCmd.RunCommand acCmdPageSetup

liu720513

谢谢指教。不过这个我试过，出现运行时错误‘2585’，处理窗体或报表事件时不能执行这个操作。

liu720513

我是这样想的：
根据要打印的记录的条数，自动设置报表页长。我用的是241的连续纸，无论记录有多少条都不分页，打完即停，不想让打印机再继续走纸，就类似于超市用的POS机。
首先我在打印服务器中自定义了若干个页形，从“001条”至“00N条”。在“出库单”窗体上放置“预览报表”按钮，按下它，在打开报表的同时，根据记录条数选择自定义的页形，想用SendKeys方法来实现，代码如下：

Public sub 页面设置()
Dim a As Integer
a = Forms!出库单!条数

SendKeys "s"
SendKeys "{right}{tab 2}{home}"

If a = 1 Then SendKeys "{enter}"
If a = 2 Then SendKeys "{down}{enter}"
‘ 依此类推……
End Sub

以上过程，用s键调出“页面设置”窗口成功，但接下来的right及其后面的键均发送失败，似乎没有被“页面设置”窗口接收。
烦请教师再次赐教，谢谢！

tmtony

中间设置一个等待时间看看

liu720513

谢谢，我试试
您是说在调出“页面设置”对话框后，用延时几秒的办法吗？

[ 本帖最后由 liu720513 于 2008-11-14 11:36 编辑 ]

liu720513

不行啊tmtony老师，我刚才试过了，从0点几秒到3秒，都没有效果。
能否请老师具体指教，不胜感激！！！

[ 本帖最后由 liu720513 于 2008-11-14 14:33 编辑 ]

liu720513

自己顶一下，贴子快沉底了。

烦请前辈指教，拜谢！！！！！