Auto Print
 

i need to print pages depending on values in certain cells.
i have this code for a macro but it doesnt work:
Sub vprint()
'MsgBox "Page : " & CurrentPage & " out of " & TotalPages

'// Print the selected page
ActiveSheet.PrintOut From:=Page1, To:=Cell.G6, _
Copies:=1
End Sub
i would like this code to print from the first page to the page specified in
cell 'G6' and the number of copies specified in 'H6'

Is it possible? if so please help me.
thank you
--
Ernie