打印一直保持双面打印(我每页只需要一个)

时间:2017-03-02 18:09:27

标签: excel vba excel-vba printing

我已经构建了以下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的纸张,而不是双面打印。通常的打印对话框不起作用,也使其成为双面。也许这是工作表本身的一个问题,但我不知道我可以关注或改变这样做的设置。

0 个答案:

没有答案