Printing VBA
 

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

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