title: Save some pages from some Excel sheets as PDF
body: <p>I use the following code to print a range of pages from a selection of sheets. I know that I could use a "print to PDF" printer to get the data to PDF. But when I print, some aspects of my Excel document don't turn out so pretty. However when I save as PDF, the document does become pretty. So I wonder if there is there any way to SAVE a range of pages from a selection of sheets AS PDF.</p>
  
  <pre><code>If IsEmpty(Cells(i, "C").Value) Then 'Printa alla sidor
      Call Sheets(Cells(i, "A").Value).PrintOut
  ElseIf Cells(i, "C").Value = 0 Then 'Printa fram till viss sida
      Call Sheets(Cells(i, "A").Value).PrintOut(1, 1)
  ElseIf Cells(i, "C").Value &gt; 0 Then 'Printa fram till viss sida
      Call Sheets(Cells(i, "A").Value).PrintOut(1, Cells(i, "C").Value)
  End If
  </code></pre>