Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
VB help with serialized printing macro?
I found some VB on the web to allow me to assign a unique number to multiple
printed docs. The macro works -- mostly: If I print, say, 5 copies, the *first* copy only is not numbered, but subsequent copies are, up through 4. My VB is rusty (took a "101" class 5 or 6 years ago, then never used it). Can someone tell me what's wrong with the code? Or, if there is another form at which this type of question should be posed, could someone point the way? *Or*, point me in the direction of a similar but wholly functional macro? ---------------------------------------------- Sub MySerial() Dim rngSerialLocation As Range Dim intSerialNum As Integer Dim strSerialNum As String Dim docCurrent As Document Dim intNumCopies As Integer Dim intCount As Integer ' set ref to current active doc Set docCurrent = Application.ActiveDocument ' set ref to the bookmarked serial number Set rngSerialLocation = docCurrent.Bookmarks("Serial").Range ' get the starting number intSerialNum = Val(rngSerialLocation.Text) ' get the number of copies required intNumCopies = Val(InputBox$("How many Copies?", _ "Print Serialized", "1")) For intCount = 1 To intNumCopies ' print the document docCurrent.PrintOut Range:=wdPrintAllDocument ' increment the serial number intSerialNum = intSerialNum + 1 ' put into formatted version strSerialNum = Format(intSerialNum, "00000") ' stuff into proper place rngSerialLocation.Text = strSerialNum Next intCount ' reset the bookmark, since the updating procedure ' wipes out the old one docCurrent.Bookmarks.Add Name:="Serial", _ Range:=rngSerialLocation End Sub ---------------------------------------------- Thank you... -Hans |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
VB help with serialized printing macro?
See http://word.mvps.org/FAQs/MacrosVBA/...piesOf1Doc.htm and
http://www.gmayor.com/installing_macro.htm . Hans wrote: I found some VB on the web to allow me to assign a unique number to multiple printed docs. The macro works -- mostly: If I print, say, 5 copies, the *first* copy only is not numbered, but subsequent copies are, up through 4. My VB is rusty (took a "101" class 5 or 6 years ago, then never used it). Can someone tell me what's wrong with the code? Or, if there is another form at which this type of question should be posed, could someone point the way? *Or*, point me in the direction of a similar but wholly functional macro? ---------------------------------------------- Sub MySerial() Dim rngSerialLocation As Range Dim intSerialNum As Integer Dim strSerialNum As String Dim docCurrent As Document Dim intNumCopies As Integer Dim intCount As Integer ' set ref to current active doc Set docCurrent = Application.ActiveDocument ' set ref to the bookmarked serial number Set rngSerialLocation = docCurrent.Bookmarks("Serial").Range ' get the starting number intSerialNum = Val(rngSerialLocation.Text) ' get the number of copies required intNumCopies = Val(InputBox$("How many Copies?", _ "Print Serialized", "1")) For intCount = 1 To intNumCopies ' print the document docCurrent.PrintOut Range:=wdPrintAllDocument ' increment the serial number intSerialNum = intSerialNum + 1 ' put into formatted version strSerialNum = Format(intSerialNum, "00000") ' stuff into proper place rngSerialLocation.Text = strSerialNum Next intCount ' reset the bookmark, since the updating procedure ' wipes out the old one docCurrent.Bookmarks.Add Name:="Serial", _ Range:=rngSerialLocation End Sub ---------------------------------------------- Thank you... -Hans |
#3
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
VB help with serialized printing macro?
Thank you -- I'll check out the other macro...
Regards, -Hans "garfield-n-odie [MVP]" wrote: See http://word.mvps.org/FAQs/MacrosVBA/...piesOf1Doc.htm and http://www.gmayor.com/installing_macro.htm . Hans wrote: I found some VB on the web to allow me to assign a unique number to multiple printed docs. The macro works -- mostly: If I print, say, 5 copies, the *first* copy only is not numbered, but subsequent copies are, up through 4. My VB is rusty (took a "101" class 5 or 6 years ago, then never used it). Can someone tell me what's wrong with the code? Or, if there is another form at which this type of question should be posed, could someone point the way? *Or*, point me in the direction of a similar but wholly functional macro? ---------------------------------------------- Sub MySerial() Dim rngSerialLocation As Range Dim intSerialNum As Integer Dim strSerialNum As String Dim docCurrent As Document Dim intNumCopies As Integer Dim intCount As Integer ' set ref to current active doc Set docCurrent = Application.ActiveDocument ' set ref to the bookmarked serial number Set rngSerialLocation = docCurrent.Bookmarks("Serial").Range ' get the starting number intSerialNum = Val(rngSerialLocation.Text) ' get the number of copies required intNumCopies = Val(InputBox$("How many Copies?", _ "Print Serialized", "1")) For intCount = 1 To intNumCopies ' print the document docCurrent.PrintOut Range:=wdPrintAllDocument ' increment the serial number intSerialNum = intSerialNum + 1 ' put into formatted version strSerialNum = Format(intSerialNum, "00000") ' stuff into proper place rngSerialLocation.Text = strSerialNum Next intCount ' reset the bookmark, since the updating procedure ' wipes out the old one docCurrent.Bookmarks.Add Name:="Serial", _ Range:=rngSerialLocation End Sub ---------------------------------------------- Thank you... -Hans |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Printing Macro | Microsoft Word Help | |||
Creating a macro to run a merge and then printing , then save | Mailmerge | |||
Help needed w/booklet-printing macro, round 2 | Page Layout | |||
Help needed: booklet-printing macro not working correctly | Page Layout | |||
printing labels from a form using a macro | Formatting Long Documents |