请教，Excel改变打印机，打印区域变化的问题。。。

云端的猫

公司有一个人员清单的表格，我做了一个模板，有表头。利用VBA处理清单数据。
公司有好几台打印机，不同型号，如果我的人员清单表只有一页的时候不会出现问题，但如果有几页的情况下，第二页就会出现错行，我试过，如果用A打印机，打印预览时，第一页能打48行；换成B打印机，预览时能打49行，这是造成错版的原因。
求教各位大神，能否用VBA取得打印预览时，一页能打多少行的数目，或者其他方法可以解决不同打印机的错行问题~谢谢
{:091:}

bbhiox

学习学习了                  

云端的猫

已经解决啦，给大家点提示

打开“视图”菜单，选“分页预览”，就可以插入分页符啦。

1. Const MAX = 34
   
2. Const MARK = 43
   
3. ActiveWindow.View =xlPageBreakPreview
   
4. ActiveWindow.Zoom = 100
   
5. Set .Sheets("电子清单表").HPageBreaks(PAGE).Location = Rows(MARK * PAGE + 1)

复制代码

bbhiox

学习学习了