Office中国论坛/Access中国论坛

标题: 请教!能否在access定义新增的excel工作表的打印纸张和格式吗? [打印本页]

作者: wjb5645 时间: 2007-2-11 08:53
标题: 请教!能否在access定义新增的excel工作表的打印纸张和格式吗?
我是在access中让excel复制一张工作表,并对新工作表修改保存. 从excel 打开又要手工进行打印设置,有没办法在access中解决???

作者: sgrshh29 时间: 2007-2-11 19:18

以下是引用wjb5645在2007-2-11 0:53:00的发言：

我是在access中让excel复制一张工作表,并对新工作表修改保存. 从excel 打开又要手工进行打印设置,有没办法在access中解决???

办法有几种，要看你的实际情况决定。

作者: wjb5645 时间: 2007-2-11 20:19
我只懂用笨办法:

用EXECL录制的宏来修改,可边距的属性在ACCESS中不能用:

   With ActiveSheet.PageSetup

      .LeftMargin = Application.InchesToPoints()
      .RightMargin = Application.InchesToPoints()
      .TopMargin = Application.InchesToPoints()
      .BottomMargin = Application.InchesToPoints()
      .HeaderMargin = Application.InchesToPoints()
      .FooterMargin = Application.InchesToPoints()

   End With

请教在ACCESS中的办法,非常感谢!

作者: wjb5645 时间: 2007-2-11 20:37
我改为:

  With ActiveSheet.PageSetup

      .LeftMargin = ()
      .RightMargin = ()
      .TopMargin = ()
      .BottomMargin = ()
      .HeaderMargin = ()
      .FooterMargin = ()

   End With

倒是可以用了,是厘米制的,我还是想知道在ACCESS中的办法.

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