【答疑】打印预览

有朋友发来问题：

首先，我们来看看他的这句话一共有几个点？

1

如何实现A1选择不同表名？

2

如何点打印预览显示被选择表名的预览？

3

如何在关闭后，回到原始位置？

首先，我们来看第一个问题：

如何实现A1选择不同表名？

这个在往期的已经分享过了，通过数据验证的序列来完成下拉菜单效果。

传送门：《为单元格添加下拉菜单 》

然后，我们来看第二个问题：

如何点打印预览显示被选择表名的预览？

我们已经获取了，想要打印预览的工作表名，我们只需要创建按钮，并且把打印预览的代码关联到按钮上即可。

代码

Sheets(CStr(Sheets("Sheet1").Range("A1"))).Select

上面代码分为三个，分开写也可以的

分别是

Sheets("XXX").Select→ 工作表的选择，

CStr(XXX)→ 强制转化成字符串，

Sheets("Sheet1").Range("A1")→ 单元格的选择。

ActiveWorkbook.ActiveSheet.PrintPreview

把活动工作表打印预览

最后，我们来看第三个问题：

如何在关闭后，回到原始位置？

回到A1单元格就可以了

代码

Sheets("Sheet1").Range("A1").Select

END