LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 46
Default printing in Draft (part 2)

Hi (again)
Following code should print every sheet in Draft

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

Alas, every sheet is printed in high quality which takes too much time (an
ink)
What am I doing wrong??


 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Help! Draft Watermark Won't Go Away Karin Excel Discussion (Misc queries) 6 March 18th 09 07:08 PM
Printing Part of User Form mully New Users to Excel 1 May 26th 05 08:22 AM
Print as draft Alcides Excel Discussion (Misc queries) 4 March 17th 05 10:40 PM
Printing in Draft mode Jean-Paul De Winter Excel Programming 2 October 18th 04 10:09 PM
Printing part of userform Bhuktar S[_13_] Excel Programming 1 October 4th 04 12:41 PM


All times are GMT +1. The time now is 03:42 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"