打印ActiveSheet单面

我正在尝试打印ActiveSheet单面和双面。 双面印刷（ Case Dubbelzijdig ）和Case Concept工作正常。 如何使Case Origineel单面打印ActiveSheet 。 哪些值传递给.PrintOut ？

 Option Explicit Private bActive As Boolean Private Sub cmdOK_Click() Dim WordRange As Range With ActiveSheet Select Case lstSelect Case "Concept" .ExportAsFixedFormat _ Type:=xlTypePDF, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True Case "Origineel" .PrintOut Case "Dubbelzijdig" .PrintOut , , , , ActivePrinter End Select End With Unload frmSelect End Sub Private Sub UserForm_Activate() While bActive DoEvents Wend End Sub Private Sub UserForm_Initialize() bActive = True With lstSelect .AddItem "Concept" .AddItem "Origineel" .AddItem "Dubbelzijdig" If .ListCount > 0 Then lstSelect = lstSelect.Column(0, 0) End If End With End Sub