Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Printing a number of pages with them numbered
Hi All!
I'm trying to come with a macro that will ask the user to select how many copies of a sheet to print. The thing that are being printed are tags. I would like to number themas the are printed. Any suggestions? Thanks in advance |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Printing a number of pages with them numbered
So you do not really want x copies of the same sheet; you want to print it x
times with changes ? Depending how/where you are numbering the tags, amend this: Private Sub CommandButton1_Click() Dim PrintCount As Long Dim i As Long Const NUMBERSONLY As Long = 1 PrintCount = Application.InputBox("How many tags ?", "Print count", , , , , , NUMBERSONLY) For i = 1 To PrintCount With Worksheets(1) .Range("A1").Value = i '.PrintOut End With Next End Sub NickHK "mslabbe" wrote in message ... Hi All! I'm trying to come with a macro that will ask the user to select how many copies of a sheet to print. The thing that are being printed are tags. I would like to number themas the are printed. Any suggestions? Thanks in advance |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Printing a number of pages with them numbered
Thanks NickHK...not exactly what I wanted, however it gave me some
ideas...this code that you gave did not print the numbers for some reason. I had the user select the amount of copies, sent it to a range and then used some this code and another one that I found on this site...this is such a wonderful site! Thanks again for your help Sub PrintTag() For i = 1 To Range("K5") Sheets("Tag").Select With Worksheets(1) Range("K5").Value = i ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End With Next End Sub "NickHK" wrote: So you do not really want x copies of the same sheet; you want to print it x times with changes ? Depending how/where you are numbering the tags, amend this: Private Sub CommandButton1_Click() Dim PrintCount As Long Dim i As Long Const NUMBERSONLY As Long = 1 PrintCount = Application.InputBox("How many tags ?", "Print count", , , , , , NUMBERSONLY) For i = 1 To PrintCount With Worksheets(1) .Range("A1").Value = i '.PrintOut End With Next End Sub NickHK "mslabbe" wrote in message ... Hi All! I'm trying to come with a macro that will ask the user to select how many copies of a sheet to print. The thing that are being printed are tags. I would like to number themas the are printed. Any suggestions? Thanks in advance |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how do you print odd numbered pages | Excel Discussion (Misc queries) | |||
Printing in Excel, can pages be reverse numbered, back to front? | Excel Discussion (Misc queries) | |||
Consecutive Numbered Pages | Excel Discussion (Misc queries) | |||
How do I print odd numbered pages | New Users to Excel | |||
How do I print just the odd or even numbered pages. | Excel Discussion (Misc queries) |