Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Will only print one???
HI thanks for the past help But i have a small problem He is my code (im using a user form) Private Sub CommandButton1_Click() If OptionButton1 Then Sheets("S32 worksheet").Select Dim ws As Worksheet Dim no_of_copies As Integer no_of_copies = Application.InputBox("How many copies do you wish t print ", , 1) If no_of_copies = 0 Then Exit Sub MsgBox ("NOTE : A MEASURE SHEET MUST BE ATTACHED WITH THIS WORKSHEET IF NOT THIS SHEET IS NOT VALID AND NO PRODUCTION SHOULD BE MADE") ActiveWindow.SelectedSheets.PrintOut , Collate:=True Sheets("S32 input").Select ElseIf OptionButton2 Then Sheets("S32 worksheet").Select ActiveWindow.Zoom = 75 ElseIf OptionButton3 Then Sheets("Heroal main page ").Select ElseIf OptionButton4 Then Sheets("s32mea").Select no_of_copies = Application.InputBox("How many copies do you wish t print ", , 1) If no_of_copies = 0 Then Exit Sub ActiveWindow.SelectedSheets.PrintOut , Collate:=True Sheets("S32 input").Select End If Unload Me Close End Sub But the problem is when the input box appears asking how many copies d you wish to print if you put 5 in it still only prints 1 Need help Thank -- ra ----------------------------------------------------------------------- raw's Profile: http://www.excelforum.com/member.php...fo&userid=2831 View this thread: http://www.excelforum.com/showthread.php?threadid=48028 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Will only print one???
Without looking at the rest of your code, I don't see where you used that
no_of_copies variable: ActiveWindow.SelectedSheets.PrintOut collate:=True, copies:=no_of_copies raw wrote: HI thanks for the past help But i have a small problem He is my code (im using a user form) Private Sub CommandButton1_Click() If OptionButton1 Then Sheets("S32 worksheet").Select Dim ws As Worksheet Dim no_of_copies As Integer no_of_copies = Application.InputBox("How many copies do you wish to print ", , 1) If no_of_copies = 0 Then Exit Sub MsgBox ("NOTE : A MEASURE SHEET MUST BE ATTACHED WITH THIS WORKSHEET. IF NOT THIS SHEET IS NOT VALID AND NO PRODUCTION SHOULD BE MADE") ActiveWindow.SelectedSheets.PrintOut , Collate:=True Sheets("S32 input").Select ElseIf OptionButton2 Then Sheets("S32 worksheet").Select ActiveWindow.Zoom = 75 ElseIf OptionButton3 Then Sheets("Heroal main page ").Select ElseIf OptionButton4 Then Sheets("s32mea").Select no_of_copies = Application.InputBox("How many copies do you wish to print ", , 1) If no_of_copies = 0 Then Exit Sub ActiveWindow.SelectedSheets.PrintOut , Collate:=True Sheets("S32 input").Select End If Unload Me Close End Sub But the problem is when the input box appears asking how many copies do you wish to print if you put 5 in it still only prints 1 Need help Thanks -- raw ------------------------------------------------------------------------ raw's Profile: http://www.excelforum.com/member.php...o&userid=28312 View this thread: http://www.excelforum.com/showthread...hreadid=480286 -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Print and Print Preview Graphic Moving Resizing 2007/2003 | Excel Discussion (Misc queries) | |||
cell borders that I create dont show on print preview or print | Excel Discussion (Misc queries) | |||
Pivot Table macro to set print area and print details of drill down data | Excel Discussion (Misc queries) | |||
Active cell counting in particular print page (one sheet having different print area) | Excel Worksheet Functions | |||
Need Help w/ Print Macro to Print All Visible Sheets (including Charts) in a Workbook | Excel Programming |