Printing in Draft mode

  • Thread starter Jean-Paul De Winter
  • Start date
J

Jean-Paul De Winter

Hi,
I created a pushbutton with following code:

Sub printfile()
Dim I As Integer
For I = 2 To Sheets.Count
With ActiveSheet.PageSetup
.Draft = False
End With
Sheets(I).PrintOut
Next I
End Sub

The idea is to print sheets in draft mode... however, I doubt if this is the
correct code since it doesn't seem to work...
Any idea?
Thanks
 
J

Jim Rech

Try setting Draft to True.

--
Jim Rech
Excel MVP
| Hi,
| I created a pushbutton with following code:
|
| Sub printfile()
| Dim I As Integer
| For I = 2 To Sheets.Count
| With ActiveSheet.PageSetup
| .Draft = False
| End With
| Sheets(I).PrintOut
| Next I
| End Sub
|
| The idea is to print sheets in draft mode... however, I doubt if this is
the
| correct code since it doesn't seem to work...
| Any idea?
| Thanks
|
|
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Page Breaks in VBA Q 6
printing in Draft (part 2) 3
VBA Coding Help for Beginner 0
VBA word change keys 0
Keep First Letters, with exceptions 0
Printing Setup help 9
Printing multi-page and multi-orientation excel tab to PDF 0
[Q] How to sort tabs in order of CodeName 2

Top