check box

[kalpeshpatel]

in sheet1 i will create button to print out data in sheet 1 but my probelm some time i need 2 copy of print so need to make checkbox when i check checkbox print 2 copy othrwise print 1 copy.


how it possible

 

[Debraj]

http://chandoo.org/forums/topic/print-copy#post-32181

[pre]

Sub AnotherWeirdMacro()
If checkbox1.value = true then
NoOfCopies = 2
Else
NoOfCopies = 1
End If
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=NoOfCopies, Collate:=True, IgnorePrintAreas:=False
End Sub

[/pre]