PrintPreview不显示打印选项

时间:2015-05-24 19:37:46

标签: excel vba excel-vba print-preview

我为我的朋友开发了Excel VBA程序,

我的笔记本电脑上有Excel 2013,一切正常。我还在2007年和2010年的其他电脑上检查过,一切正常。

我的程序中有几个用户表单,除了特定的用户表单,他可以从其他两个用户表单打印。

当他点击用户窗体上的打印按钮时,按照我的编码将其带到打印预览,但是没有选项可以在打印预览中打印。他有Excel 2007。

以下是我在所有用户表单中的代码,只有工作表名称不同。

这不是唯一的代码,代码行太多了。编码没有错误,因为它在打印预览中执行并显示了打印选项而在其他PC上没有错误。

ThisWorkbook.Sheets("Bills").PrintPreview                   

任何猜测为什么会发生这种情况?

如果编码有任何错误,那么它在其他PC上不能正常工作,如果我朋友的PC上有任何问题,那么当点击所有用户表单中的打印时,打印选项不应显示在PrintPreview中。 / p>

编辑: 这个问题真的很奇怪。我有三个userform,所有三个都做不同的事情,但最后它显示了账单的打印预览(ThisWorkbook.Sheets(“Bills”)。PrintPreview)。当我们单击用户窗体上的打印按钮时,它会显示相同的工作表。从一个用户窗体,它显示打印预览和打印选项。从另外两个用户窗体,它显示打印预览,但没有打印选项。我必须关闭主x(关闭)按钮才能退出预览。但是这些问题我只能在一台PC上才能实现。请帮忙。

enter image description here

2 个答案:

答案 0 :(得分:0)

The correct syntax should be

Worksheets("Bills").PrintPreview or ActiveWindow.ActiveSheet.PrintPreview

See example here

答案 1 :(得分:0)

我认为这个人已使用此代码Application.ScreenUpdating = False。进行打印时,打印预览工作正常True