2018年4月29日
20180429 xlVBA套打单据批量复制
摘要： Sub testCopyModelRange() Set ModelSheet = ThisWorkbook.Worksheets("单据模板") Set PrintSheet = ThisWorkbook.Worksheets("批量打印") CopyModelRange ModelSheet, PrintSheet, 2 End Sub Public Sub Copy... 阅读全文
posted @ 2018-04-29 11:46 wangway 阅读(460) 评论(0) 推荐(0) 编辑
20180429 xlVBA套打单据自适应列宽
摘要： Sub TestAutoAdjustColumnWidthBaseOnModel() Set ModelSheet = ThisWorkbook.Worksheets("单据模板") Set PrintSheet = ThisWorkbook.Worksheets("批量打印") AutoAdjustColumnWidthBaseOnModel ModelSheet, P... 阅读全文
posted @ 2018-04-29 11:45 wangway 阅读(448) 评论(0) 推荐(0) 编辑
20180429 xlVBA套打单据自适应行高
只有注册用户登录后才能阅读该文。 阅读全文
posted @ 2018-04-29 09:01 wangway 阅读(8) 评论(0) 推荐(0) 编辑