Question

VBA，打印区域只要有内容就补全空白行命令怎么设置？

VBA，打印区域只要有内容就补全空白行命令怎么设置？
比如公司规定一页纸上必须有12行，我第二页有一条内容，自动补全12行。
然后打印出来，不会多打印出 第三页 第四页之类的空白页

Answer 1

下面是打印文件的代码，可以试试：

Sub 打印()
  
    Workbooks.Open ("d:\xls\22.xls")
    Application.DisplayAlerts = False '关闭屏幕提示'
      
    '打印 "22.xls" 工作簿中的"Sheet1"工作表,从第1页到第1页,打印份数为1份'
    Workbooks("22.xls").Sheets("Sheet1").PrintOut From:=1, To:=1, Copies:=1, Collate:=True
    Workbooks("22.xls").Close
    Application.DisplayAlerts = True '打开屏幕提示'
  
  
End Sub

Sub 打开指定文件夹()
Dim Ret
jjj = "c:\pic\qlz110.jpg"
Ret = Shell("C:\Program Files\ACDSee\ACDSee.exe " & jjj, vbNormalFocus)
End Sub

填补空白这个估计要自己添加代码，例如判断一页的字符数。然后添加相应的空格。