title: Print ActiveSheet single sided
body: <p>I'm trying to print an <code>ActiveSheet</code> single sided and two sided. The two sided print (<code>Case Dubbelzijdig</code>) and the <code>Case Concept</code> are working fine. How to make the <code>Case Origineel</code> print the <code>ActiveSheet</code> single sided. Which values to pass to <code>.PrintOut</code>? </p>
  
  <pre><code>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 &gt; 0 Then
        lstSelect = lstSelect.Column(0, 0)
      End If
    End With
  End Sub
  </code></pre>