我已经构建了以下VBA代码:
Option Explicit
Private Sub PrintBtn_Click()
Worksheets.PrintOut from:=FromBox.Value, to:=ToBox.Value, Copies:=Copies.Value
End Sub
Private Sub CloseBtn_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Copies.Value = 1
FromBox.Value = 1
Dim i As Long
For i = 1 To ActiveWorkbook.Sheets.Count
SheetBox.Value = SheetBox.Value & i & " - " & ActiveWorkbook.Sheets(i).Name & vbCrLf
Next i
ToBox.Value = i - 1
End Sub
基本上使用excel中每个工作表的名称填充userform。这是一个从盒子到盒子的盒子,我试图让用户能够单独打印出每个页面。它起作用,打印功能有效,但不是在一个单独的页面上打印出来,而是在第一页之后将所有内容都双面打印!
基本上我想打印X到Y的纸张,而不是双面打印。通常的打印对话框不起作用,也使其成为双面。也许这是工作表本身的一个问题,但我不知道我可以关注或改变这样做的设置。