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: 1
Default Help needed to solve printing error


I have the following code set up to print varying numbers of exce
workbooks, based on info from a master list, and it works fine, excep
for one thing. Whenever it comes across an item which requires 0 (zero
prints, it returns an error saying the number must be between 1 an
63212 (or something).

Any ideas on how I can get the macro to skip items which don't requir
printing?

Sub Printitem()

Dim a As String
Dim b As Integer
Dim c As Integer


'go down the list getting the name of the workbook and
'the amount needed

For b = 2 To Worksheets("Sheet1").Cells(65536, 1).End(xlUp).Row

'a gets the name of the workbook
a = Worksheets("Sheet1").Cells(b, 1).Value

'c gets the number of prints needed
c = Worksheets("Sheet1").Cells(b, 8).Value

'print needed amount of workbook

Workbooks.Open ThisWorkbook.Path & Application.PathSeparator & a
".xls"
ActiveSheet.PrintOut Copies:=c
ActiveWorkbook.Close False

'loop till end

Next b

End Su

--
madblok
-----------------------------------------------------------------------
madbloke's Profile: http://www.excelforum.com/member.php...fo&userid=1442
View this thread: http://www.excelforum.com/showthread.php?threadid=39378

 
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
How to solve Error 2023 for Excel? Eric Excel Worksheet Functions 0 July 1st 07 02:24 PM
How do I solve the error this #VALUE! error James Rufus Excel Worksheet Functions 2 April 27th 06 04:25 PM
how do i solve 'file not found' error when linking notebooks? bmorar Excel Worksheet Functions 1 July 11th 05 10:40 PM
How do solve window explorer error c\Doc~1\admin~1\local~1\temp\wer8c2f.dr0 Excel Programming 1 December 22nd 04 05:41 PM
How do I solve Error 2902 Farneholm Excel Programming 0 November 16th 04 11:49 AM


All times are GMT +1. The time now is 12:50 PM.

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"