Thread: Printing VBA
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Dave Peterson[_5_] Dave Peterson[_5_] is offline
external usenet poster
 
Posts: 1,758
Default Printing VBA

Maybe something like this will give you an idea:

Option Explicit
Sub testme()

Dim myQtyCell As Range
Dim iCtr As Long

Set myQtyCell = Worksheets("sheet1").Range("Quantity")

If IsNumeric(myQtyCell.Value) Then
If myQtyCell.Value 0 Then
For iCtr = 1 To CLng(myQtyCell.Value)
Worksheets("sheet2").PrintOut preview:=True
Next iCtr
End If
End If
End Sub

TyeJae wrote:

I have cell that I named "Quantity". There is a formula in that cell
that tells me the quantity of sheets that I need to print according to
some information that I enter. What I want to do is create a button
that will print the amount of sheets according to the number that is in
"Quantity". Is this possible?

Thanks in advance,
TyeJae

--
TyeJae
------------------------------------------------------------------------
TyeJae's Profile: http://www.excelforum.com/member.php...fo&userid=7233
View this thread: http://www.excelforum.com/showthread...hreadid=319976


--

Dave Peterson