Numerazione automatica in stampa

[..:: GiGhEn ::..]

Salve, avevo bisogno di stampare un modulo in più copie e di far in modo che in queste copie stampate mi uscisse un numero progressivo, e cercando in rete ho trovato questo codice:
-----------
Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range

' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"

' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Users\PackardBell\Documents\Settings.Txt", "MacroSettings", "SerialNumber")

If SerialNumber = "" Then
SerialNumber = 1
End If

Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0

While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend

'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Users\PackardBell\Documents\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber

'Recreate the bookmark ready for the next use.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With

ActiveDocument.Save

If you want the Serial Number to appear in a particular format, e.g. 001, 002, etc, replace the line

Rng1.Text = SerialNumber

with

Rng1.Text = Format(SerialNumber, "00#")
End Sub
-------------------
quando avvio la macro mi da questo errore:
"errore di compilazione" "Prevista funzione o variabile"
evidenziandomi questo nome "SerialNumber" all'interno di questo commento:
' Display message, title, and default value.
non so come correggere questo errore e far si che funzioni.
Grazie

[casanmaner]

Post by ..:: GiGhEn ::..
-----------
Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Users\PackardBell\Documents\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0
While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Users\PackardBell\Documents\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
'Recreate the bookmark ready for the next use.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With
ActiveDocument.Save
If you want the Serial Number to appear in a particular format, e.g. 001, 002, etc, replace the line
Rng1.Text = SerialNumber
with
Rng1.Text = Format(SerialNumber, "00#")
End Sub
-------------------
"errore di compilazione" "Prevista funzione o variabile"
' Display message, title, and default value.
non so come correggere questo errore e far si che funzioni.
Grazie

Prova a dichiarare la variabile
Dim SerialNumber

[..:: GiGhEn ::..]

Post by casanmaner

Post by ..:: GiGhEn ::..
-----------
Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Users\PackardBell\Documents\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0
While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Users\PackardBell\Documents\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
'Recreate the bookmark ready for the next use.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With
ActiveDocument.Save
If you want the Serial Number to appear in a particular format, e.g. 001, 002, etc, replace the line
Rng1.Text = SerialNumber
with
Rng1.Text = Format(SerialNumber, "00#")
End Sub
-------------------
"errore di compilazione" "Prevista funzione o variabile"
' Display message, title, and default value.
non so come correggere questo errore e far si che funzioni.
Grazie

Prova a dichiarare la variabile
Dim SerialNumber

Ciao, ho provato a mettere Dim serialnumber subito dopo la riga Dim Rng1 As Range ma mi da "errore di compilazione" "variabile non definita"
visto che io non so nulla di codice potresti provarlo tu e il codice e poi me lo posti?
Grazie

[casanmaner]

Post by ..:: GiGhEn ::..
-----------
Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Users\PackardBell\Documents\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0
While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Users\PackardBell\Documents\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
'Recreate the bookmark ready for the next use.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With
ActiveDocument.Save
If you want the Serial Number to appear in a particular format, e.g. 001, 002, etc, replace the line
Rng1.Text = SerialNumber
with
Rng1.Text = Format(SerialNumber, "00#")
End Sub
-------------------
"errore di compilazione" "Prevista funzione o variabile"
' Display message, title, and default value.
non so come correggere questo errore e far si che funzioni.
Grazie

Prova così:

Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
Dim SerialNumber As String
Dim Counter As Long

' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"

' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Settings.Txt", "MacroSettings", "SerialNumber")

If SerialNumber = "" Then
SerialNumber = 1
End If

Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0

While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
'Rng1.Text = Format(SerialNumber, "00#")
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend

'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber

'Recreate the bookmark ready for the next use.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With

ActiveDocument.Save

End Sub

[..:: GiGhEn ::..]

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..
-----------
Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Users\PackardBell\Documents\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0
While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Users\PackardBell\Documents\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
'Recreate the bookmark ready for the next use.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With
ActiveDocument.Save
If you want the Serial Number to appear in a particular format, e.g. 001, 002, etc, replace the line
Rng1.Text = SerialNumber
with
Rng1.Text = Format(SerialNumber, "00#")
End Sub
-------------------
"errore di compilazione" "Prevista funzione o variabile"
' Display message, title, and default value.
non so come correggere questo errore e far si che funzioni.
Grazie

Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
Dim SerialNumber As String
Dim Counter As Long
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0
While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
'Rng1.Text = Format(SerialNumber, "00#")
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
'Recreate the bookmark ready for the next use.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With
ActiveDocument.Save
End Sub

Ciao, ho fatto come mi hai suggerito e gia' ho avuto un piccolo successo che esce la maschera con la richiesta di stampe da effettuare, ma la richiesta mi esce per due volte poi alla terza mi va in errore ed e' questo: "errore di run-time '5941'; il membro richiesto della raccolta non esiste, vado sul debug che mi chiede e mi riporta in giallo questa riga:
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
suppongo che sia li l'errore, ma non so cosa fare, mi suggerisci?
Grazie

[casanmaner]

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..
-----------
Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Users\PackardBell\Documents\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0
While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Users\PackardBell\Documents\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
'Recreate the bookmark ready for the next use.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With
ActiveDocument.Save
If you want the Serial Number to appear in a particular format, e.g. 001, 002, etc, replace the line
Rng1.Text = SerialNumber
with
Rng1.Text = Format(SerialNumber, "00#")
End Sub
-------------------
"errore di compilazione" "Prevista funzione o variabile"
' Display message, title, and default value.
non so come correggere questo errore e far si che funzioni.
Grazie

Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
Dim SerialNumber As String
Dim Counter As Long
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0
While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
'Rng1.Text = Format(SerialNumber, "00#")
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
'Recreate the bookmark ready for the next use.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With
ActiveDocument.Save
End Sub

Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
suppongo che sia li l'errore, ma non so cosa fare, mi suggerisci?
Grazie

Hai inserito nel documento un "segnalibro" nominaot "SerialNumber" nella posizione in cui desideri che venga indicato il numero di copia?

Inoltre la procedura richiede che ci sia un file di testo ("Settings.txt") in un determinato percorso (nell'esempio l'ho inserito sotto C:\) dove viene memorizzato il numero man mano utilizzato andando ad incrementrarlo di volta in volta.

[..:: GiGhEn ::..]

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..
-----------
Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Users\PackardBell\Documents\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0
While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Users\PackardBell\Documents\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
'Recreate the bookmark ready for the next use.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With
ActiveDocument.Save
If you want the Serial Number to appear in a particular format, e.g. 001, 002, etc, replace the line
Rng1.Text = SerialNumber
with
Rng1.Text = Format(SerialNumber, "00#")
End Sub
-------------------
"errore di compilazione" "Prevista funzione o variabile"
' Display message, title, and default value.
non so come correggere questo errore e far si che funzioni.
Grazie

Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
Dim SerialNumber As String
Dim Counter As Long
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0
While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
'Rng1.Text = Format(SerialNumber, "00#")
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
'Recreate the bookmark ready for the next use.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With
ActiveDocument.Save
End Sub

Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
suppongo che sia li l'errore, ma non so cosa fare, mi suggerisci?
Grazie

Hai inserito nel documento un "segnalibro" nominaot "SerialNumber" nella posizione in cui desideri che venga indicato il numero di copia?
Inoltre la procedura richiede che ci sia un file di testo ("Settings.txt") in un determinato percorso (nell'esempio l'ho inserito sotto C:\) dove viene memorizzato il numero man mano utilizzato andando ad incrementrarlo di volta in volta.

EUREKAAA!!!
Funziona alla perfezione ...grande....casanmaren o come ti chiami, mi hai risolto un problema grandissimo che stavo cercando da tanto tempo.
eventualmente ti posso tenere presente per altri quesiti?
Poi ti invio i link da dove ho prelevato il codice.
Grazie alla prossima

[..:: GiGhEn ::..]

Post by ..:: GiGhEn ::..

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..
-----------
Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Users\PackardBell\Documents\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0
While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Users\PackardBell\Documents\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
'Recreate the bookmark ready for the next use.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With
ActiveDocument.Save
If you want the Serial Number to appear in a particular format, e.g. 001, 002, etc, replace the line
Rng1.Text = SerialNumber
with
Rng1.Text = Format(SerialNumber, "00#")
End Sub
-------------------
"errore di compilazione" "Prevista funzione o variabile"
' Display message, title, and default value.
non so come correggere questo errore e far si che funzioni.
Grazie

Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
Dim SerialNumber As String
Dim Counter As Long
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0
While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
'Rng1.Text = Format(SerialNumber, "00#")
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
'Recreate the bookmark ready for the next use.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With
ActiveDocument.Save
End Sub

Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
suppongo che sia li l'errore, ma non so cosa fare, mi suggerisci?
Grazie

Hai inserito nel documento un "segnalibro" nominaot "SerialNumber" nella posizione in cui desideri che venga indicato il numero di copia?
Inoltre la procedura richiede che ci sia un file di testo ("Settings.txt") in un determinato percorso (nell'esempio l'ho inserito sotto C:\) dove viene memorizzato il numero man mano utilizzato andando ad incrementrarlo di volta in volta.

EUREKAAA!!!
Funziona alla perfezione ...grande....casanmaren o come ti chiami, mi hai risolto un problema grandissimo che stavo cercando da tanto tempo.
eventualmente ti posso tenere presente per altri quesiti?
Poi ti invio i link da dove ho prelevato il codice.
Grazie alla prossima

Un ulteriore modifica, è possibile inserire una riga di codice per modificare la grandezza ed altri parametri per far uscire il numero seriale in neretto e la grandezza che preferisco?
Grazie
Se ti possono servire ti invio i link da dove ho preso il codice per la numerazione automatica.
1) https://www.wordmvp.com/FAQs/MacrosVBA/NumberCopiesOf1Doc.htm
2) https://www.wordmvp.com/FAQs/MacrosVBA/DocumentEvents.htm
3) https://wordmvp.com/FAQs/MacrosVBA/NumberDocs.htm
4) https://wordmvp.com/FAQs/MacrosVBA/PseudoAutoMacros.htm

[casanmaner]

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..
-----------
Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Users\PackardBell\Documents\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0
While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Users\PackardBell\Documents\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
'Recreate the bookmark ready for the next use.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With
ActiveDocument.Save
If you want the Serial Number to appear in a particular format, e.g. 001, 002, etc, replace the line
Rng1.Text = SerialNumber
with
Rng1.Text = Format(SerialNumber, "00#")
End Sub
-------------------
"errore di compilazione" "Prevista funzione o variabile"
' Display message, title, and default value.
non so come correggere questo errore e far si che funzioni.
Grazie

Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
Dim SerialNumber As String
Dim Counter As Long
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0
While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
'Rng1.Text = Format(SerialNumber, "00#")
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
'Recreate the bookmark ready for the next use.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With
ActiveDocument.Save
End Sub

Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
suppongo che sia li l'errore, ma non so cosa fare, mi suggerisci?
Grazie

Hai inserito nel documento un "segnalibro" nominaot "SerialNumber" nella posizione in cui desideri che venga indicato il numero di copia?
Inoltre la procedura richiede che ci sia un file di testo ("Settings.txt") in un determinato percorso (nell'esempio l'ho inserito sotto C:\) dove viene memorizzato il numero man mano utilizzato andando ad incrementrarlo di volta in volta.

EUREKAAA!!!
Funziona alla perfezione ...grande....casanmaren o come ti chiami, mi hai risolto un problema grandissimo che stavo cercando da tanto tempo.
eventualmente ti posso tenere presente per altri quesiti?
Poi ti invio i link da dove ho prelevato il codice.
Grazie alla prossima

Un ulteriore modifica, è possibile inserire una riga di codice per modificare la grandezza ed altri parametri per far uscire il numero seriale in neretto e la grandezza che preferisco?
Grazie

Ciao GighEn,
premesso che non sono un grande conoscitore di Word prova qualcosa del genere:

With Rng1
.Delete
.Text = SerialNumber
With .Font
.Bold = True
.Italic = True
.Name = "Castellar"
.Size = 8
End With
End With

dove dopo aver cancellato il testo del segnalibro e aver inserito il "SerialNumber" viene impostato il "Font" (carattere) impostandolo su grassetto (bold), corsivo (italic), con il tipo Castellar di dimensione 8.

[..:: GiGhEn ::..]

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..
-----------
Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Users\PackardBell\Documents\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0
While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Users\PackardBell\Documents\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
'Recreate the bookmark ready for the next use.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With
ActiveDocument.Save
If you want the Serial Number to appear in a particular format, e.g. 001, 002, etc, replace the line
Rng1.Text = SerialNumber
with
Rng1.Text = Format(SerialNumber, "00#")
End Sub
-------------------
"errore di compilazione" "Prevista funzione o variabile"
' Display message, title, and default value.
non so come correggere questo errore e far si che funzioni.
Grazie

Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
Dim SerialNumber As String
Dim Counter As Long
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0
While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
'Rng1.Text = Format(SerialNumber, "00#")
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
'Recreate the bookmark ready for the next use.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With
ActiveDocument.Save
End Sub

Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
suppongo che sia li l'errore, ma non so cosa fare, mi suggerisci?
Grazie

Hai inserito nel documento un "segnalibro" nominaot "SerialNumber" nella posizione in cui desideri che venga indicato il numero di copia?
Inoltre la procedura richiede che ci sia un file di testo ("Settings.txt") in un determinato percorso (nell'esempio l'ho inserito sotto C:\) dove viene memorizzato il numero man mano utilizzato andando ad incrementrarlo di volta in volta.

EUREKAAA!!!
Funziona alla perfezione ...grande....casanmaren o come ti chiami, mi hai risolto un problema grandissimo che stavo cercando da tanto tempo.
eventualmente ti posso tenere presente per altri quesiti?
Poi ti invio i link da dove ho prelevato il codice.
Grazie alla prossima

Un ulteriore modifica, è possibile inserire una riga di codice per modificare la grandezza ed altri parametri per far uscire il numero seriale in neretto e la grandezza che preferisco?
Grazie

Ciao GighEn,
With Rng1
.Delete
.Text = SerialNumber
With .Font
.Bold = True
.Italic = True
.Name = "Castellar"
.Size = 8
End With
End With
dove dopo aver cancellato il testo del segnalibro e aver inserito il "SerialNumber" viene impostato il "Font" (carattere) impostandolo su grassetto (bold), corsivo (italic), con il tipo Castellar di dimensione 8.

Ok! Grazie al tuo aiuto ho rispolto anche questo problema, ora è tutto completo.

[..:: GiGhEn ::..]

Post by ..:: GiGhEn ::..

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..
-----------
Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Users\PackardBell\Documents\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0
While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Users\PackardBell\Documents\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
'Recreate the bookmark ready for the next use.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With
ActiveDocument.Save
If you want the Serial Number to appear in a particular format, e.g. 001, 002, etc, replace the line
Rng1.Text = SerialNumber
with
Rng1.Text = Format(SerialNumber, "00#")
End Sub
-------------------
"errore di compilazione" "Prevista funzione o variabile"
' Display message, title, and default value.
non so come correggere questo errore e far si che funzioni.
Grazie

Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
Dim SerialNumber As String
Dim Counter As Long
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0
While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
'Rng1.Text = Format(SerialNumber, "00#")
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
'Recreate the bookmark ready for the next use.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With
ActiveDocument.Save
End Sub

Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
suppongo che sia li l'errore, ma non so cosa fare, mi suggerisci?
Grazie

Hai inserito nel documento un "segnalibro" nominaot "SerialNumber" nella posizione in cui desideri che venga indicato il numero di copia?
Inoltre la procedura richiede che ci sia un file di testo ("Settings.txt") in un determinato percorso (nell'esempio l'ho inserito sotto C:\) dove viene memorizzato il numero man mano utilizzato andando ad incrementrarlo di volta in volta.

EUREKAAA!!!
Funziona alla perfezione ...grande....casanmaren o come ti chiami, mi hai risolto un problema grandissimo che stavo cercando da tanto tempo.
eventualmente ti posso tenere presente per altri quesiti?
Poi ti invio i link da dove ho prelevato il codice.
Grazie alla prossima

Un ulteriore modifica, è possibile inserire una riga di codice per modificare la grandezza ed altri parametri per far uscire il numero seriale in neretto e la grandezza che preferisco?
Grazie

Ciao GighEn,
With Rng1
.Delete
.Text = SerialNumber
With .Font
.Bold = True
.Italic = True
.Name = "Castellar"
.Size = 8
End With
End With
dove dopo aver cancellato il testo del segnalibro e aver inserito il "SerialNumber" viene impostato il "Font" (carattere) impostandolo su grassetto (bold), corsivo (italic), con il tipo Castellar di dimensione 8.

Ok! Grazie al tuo aiuto ho rispolto anche questo problema, ora è tutto completo.

Scusa ho un problema con i segnalibri, ho inserito due segnalibri con lo stesso nome sulla pagina ma inserisce il numero solo ad un segnalibro ma non a tutti e due, come posso fare che mi venga messo lo stesso numero su titti e due segnalibri?
Grazie

[casanmaner]

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..
-----------
Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Users\PackardBell\Documents\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0
While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Users\PackardBell\Documents\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
'Recreate the bookmark ready for the next use.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With
ActiveDocument.Save
If you want the Serial Number to appear in a particular format, e.g. 001, 002, etc, replace the line
Rng1.Text = SerialNumber
with
Rng1.Text = Format(SerialNumber, "00#")
End Sub
-------------------
"errore di compilazione" "Prevista funzione o variabile"
' Display message, title, and default value.
non so come correggere questo errore e far si che funzioni.
Grazie

Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
Dim SerialNumber As String
Dim Counter As Long
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
Counter = 0
While Counter < NumCopies
Rng1.Delete
Rng1.Text = SerialNumber
'Rng1.Text = Format(SerialNumber, "00#")
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
'Recreate the bookmark ready for the next use.
With ActiveDocument.Bookmarks
.Add Name:="SerialNumber", Range:=Rng1
End With
ActiveDocument.Save
End Sub

Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range
suppongo che sia li l'errore, ma non so cosa fare, mi suggerisci?
Grazie

Hai inserito nel documento un "segnalibro" nominaot "SerialNumber" nella posizione in cui desideri che venga indicato il numero di copia?
Inoltre la procedura richiede che ci sia un file di testo ("Settings.txt") in un determinato percorso (nell'esempio l'ho inserito sotto C:\) dove viene memorizzato il numero man mano utilizzato andando ad incrementrarlo di volta in volta.

EUREKAAA!!!
Funziona alla perfezione ...grande....casanmaren o come ti chiami, mi hai risolto un problema grandissimo che stavo cercando da tanto tempo.
eventualmente ti posso tenere presente per altri quesiti?
Poi ti invio i link da dove ho prelevato il codice.
Grazie alla prossima

Un ulteriore modifica, è possibile inserire una riga di codice per modificare la grandezza ed altri parametri per far uscire il numero seriale in neretto e la grandezza che preferisco?
Grazie

Ciao GighEn,
With Rng1
.Delete
.Text = SerialNumber
With .Font
.Bold = True
.Italic = True
.Name = "Castellar"
.Size = 8
End With
End With
dove dopo aver cancellato il testo del segnalibro e aver inserito il "SerialNumber" viene impostato il "Font" (carattere) impostandolo su grassetto (bold), corsivo (italic), con il tipo Castellar di dimensione 8.

Ok! Grazie al tuo aiuto ho rispolto anche questo problema, ora è tutto completo.

Scusa ho un problema con i segnalibri, ho inserito due segnalibri con lo stesso nome sulla pagina ma inserisce il numero solo ad un segnalibro ma non a tutti e due, come posso fare che mi venga messo lo stesso numero su titti e due segnalibri?
Grazie

Non credo si possano avere più segnalibri con lo stesso nome (ma magari mi sbaglio).
A mio parere devi dare due nomi distinti ai segnalibro e replicare la procedura per ciascun di essi.

[casanmaner]

Ad es. dopo aver creato due diversi segnalibri nominati "SerialNumber1" e "SerialNumber2" prova la procedura così modificata:


Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
Dim SerialNumber As String
Dim Counter As Long
Dim iBM As Long


' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"

' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Settings.Txt", "MacroSettings", "SerialNumber")

If SerialNumber = "" Then
SerialNumber = 1
End If

Counter = 0

While Counter < NumCopies
For iBM = 1 To 2
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber" & iBM).Range
With Rng1
.Delete
.Text = SerialNumber
With .Font
.Bold = True
.Italic = True
.Name = "Castellar"
.Size = 8
End With
End With
ActiveDocument.Bookmarks.Add Name:="SerialNumber" & iBM, Range:=Rng1
Next iBM

ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend

'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber


ActiveDocument.Save

End Sub

[..:: GiGhEn ::..]

Post by ..:: GiGhEn ::..
Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
Dim SerialNumber As String
Dim Counter As Long
Dim iBM As Long
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Counter = 0
While Counter < NumCopies
For iBM = 1 To 2
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber" & iBM).Range
With Rng1
.Delete
.Text = SerialNumber
With .Font
.Bold = True
.Italic = True
.Name = "Castellar"
.Size = 8
End With
End With
ActiveDocument.Bookmarks.Add Name:="SerialNumber" & iBM, Range:=Rng1
Next iBM
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
ActiveDocument.Save
End Sub

Ciao, ho inserito il codice come mi hai detto e mi da errore "errore di compilazione" "wend senza wile" ??? cosa devo fare?
Ciao grazie e scusa l'ora

[..:: GiGhEn ::..]

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..
Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
Dim SerialNumber As String
Dim Counter As Long
Dim iBM As Long
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Counter = 0
While Counter < NumCopies
For iBM = 1 To 2
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber" & iBM).Range
With Rng1
.Delete
.Text = SerialNumber
With .Font
.Bold = True
.Italic = True
.Name = "Castellar"
.Size = 8
End With
End With
ActiveDocument.Bookmarks.Add Name:="SerialNumber" & iBM, Range:=Rng1
Next iBM
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
ActiveDocument.Save
End Sub

Ciao, ho inserito il codice come mi hai detto e mi da errore "errore di compilazione" "wend senza wile" ??? cosa devo fare?
Ciao grazie e scusa l'ora

Scusa volevo scrivere while

[casanmaner]

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..
Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
Dim SerialNumber As String
Dim Counter As Long
Dim iBM As Long
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Counter = 0
While Counter < NumCopies
For iBM = 1 To 2
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber" & iBM).Range
With Rng1
.Delete
.Text = SerialNumber
With .Font
.Bold = True
.Italic = True
.Name = "Castellar"
.Size = 8
End With
End With
ActiveDocument.Bookmarks.Add Name:="SerialNumber" & iBM, Range:=Rng1
Next iBM
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
ActiveDocument.Save
End Sub

Ciao, ho inserito il codice come mi hai detto e mi da errore "errore di compilazione" "wend senza wile" ??? cosa devo fare?
Ciao grazie e scusa l'ora

Scusa volevo scrivere while

Sicuro di aver copiato tutto o di non aver cancellato accidentalmente qualcosa?

Vedi il codice presente nel modulo vba di questo doc.

https://www.dropbox.com/s/7jj509wg28gdttu/10.docm?dl=0

[..:: GiGhEn ::..]

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..
Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
Dim SerialNumber As String
Dim Counter As Long
Dim iBM As Long
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Counter = 0
While Counter < NumCopies
For iBM = 1 To 2
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber" & iBM).Range
With Rng1
.Delete
.Text = SerialNumber
With .Font
.Bold = True
.Italic = True
.Name = "Castellar"
.Size = 8
End With
End With
ActiveDocument.Bookmarks.Add Name:="SerialNumber" & iBM, Range:=Rng1
Next iBM
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
ActiveDocument.Save
End Sub

Ciao, ho inserito il codice come mi hai detto e mi da errore "errore di compilazione" "wend senza wile" ??? cosa devo fare?
Ciao grazie e scusa l'ora

Scusa volevo scrivere while

Sicuro di aver copiato tutto o di non aver cancellato accidentalmente qualcosa?
Vedi il codice presente nel modulo vba di questo doc.
https://www.dropbox.com/s/7jj509wg28gdttu/10.docm?dl=0

il file che mi hai inviato non si apre, cmq ho risolto tutto ok!
grazie

[..:: GiGhEn ::..]

Post by ..:: GiGhEn ::..

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..
Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
Dim SerialNumber As String
Dim Counter As Long
Dim iBM As Long
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Counter = 0
While Counter < NumCopies
For iBM = 1 To 2
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber" & iBM).Range
With Rng1
.Delete
.Text = SerialNumber
With .Font
.Bold = True
.Italic = True
.Name = "Castellar"
.Size = 8
End With
End With
ActiveDocument.Bookmarks.Add Name:="SerialNumber" & iBM, Range:=Rng1
Next iBM
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
ActiveDocument.Save
End Sub

Ciao, ho inserito il codice come mi hai detto e mi da errore "errore di compilazione" "wend senza wile" ??? cosa devo fare?
Ciao grazie e scusa l'ora

Scusa volevo scrivere while

Sicuro di aver copiato tutto o di non aver cancellato accidentalmente qualcosa?
Vedi il codice presente nel modulo vba di questo doc.
https://www.dropbox.com/s/7jj509wg28gdttu/10.docm?dl=0

il file che mi hai inviato non si apre, cmq ho risolto tutto ok!
grazie

Scusami ancora, ultima domanda se volessi far partire la numerazione con piu' cifre es: 0001, 0002 ecc. cosa devo aggiungere?
Grazie e scusami ancora penso che con questo ho finito di darti fastidio.

[casanmaner]

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..
Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
Dim SerialNumber As String
Dim Counter As Long
Dim iBM As Long
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Counter = 0
While Counter < NumCopies
For iBM = 1 To 2
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber" & iBM).Range
With Rng1
.Delete
.Text = SerialNumber
With .Font
.Bold = True
.Italic = True
.Name = "Castellar"
.Size = 8
End With
End With
ActiveDocument.Bookmarks.Add Name:="SerialNumber" & iBM, Range:=Rng1
Next iBM
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
ActiveDocument.Save
End Sub

Ciao, ho inserito il codice come mi hai detto e mi da errore "errore di compilazione" "wend senza wile" ??? cosa devo fare?
Ciao grazie e scusa l'ora

Scusa volevo scrivere while

Sicuro di aver copiato tutto o di non aver cancellato accidentalmente qualcosa?
Vedi il codice presente nel modulo vba di questo doc.
https://www.dropbox.com/s/7jj509wg28gdttu/10.docm?dl=0

il file che mi hai inviato non si apre, cmq ho risolto tutto ok!
grazie

Scusami ancora, ultima domanda se volessi far partire la numerazione con piu' cifre es: 0001, 0002 ecc. cosa devo aggiungere?
Grazie e scusami ancora penso che con questo ho finito di darti fastidio.

Strano che il file non si apra.
Ho appena provato e da me si apre regolarmente.
Per formattare la cifra con più zeri iniziali utilizza:

.Txt = Format(SerialNumber, "000#")

[..:: GiGhEn ::..]

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..
Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
Dim SerialNumber As String
Dim Counter As Long
Dim iBM As Long
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Counter = 0
While Counter < NumCopies
For iBM = 1 To 2
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber" & iBM).Range
With Rng1
.Delete
.Text = SerialNumber
With .Font
.Bold = True
.Italic = True
.Name = "Castellar"
.Size = 8
End With
End With
ActiveDocument.Bookmarks.Add Name:="SerialNumber" & iBM, Range:=Rng1
Next iBM
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
ActiveDocument.Save
End Sub

Ciao, ho inserito il codice come mi hai detto e mi da errore "errore di compilazione" "wend senza wile" ??? cosa devo fare?
Ciao grazie e scusa l'ora

Scusa volevo scrivere while

Sicuro di aver copiato tutto o di non aver cancellato accidentalmente qualcosa?
Vedi il codice presente nel modulo vba di questo doc.
https://www.dropbox.com/s/7jj509wg28gdttu/10.docm?dl=0

il file che mi hai inviato non si apre, cmq ho risolto tutto ok!
grazie

Scusami ancora, ultima domanda se volessi far partire la numerazione con piu' cifre es: 0001, 0002 ecc. cosa devo aggiungere?
Grazie e scusami ancora penso che con questo ho finito di darti fastidio.

Strano che il file non si apra.
Ho appena provato e da me si apre regolarmente.
.Txt = Format(SerialNumber, "000#")

Ok! Risolto l'apertura, la stringa dove la devo inserire?

[casanmaner]

Post by ..:: GiGhEn ::..

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..
Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
Dim SerialNumber As String
Dim Counter As Long
Dim iBM As Long
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Counter = 0
While Counter < NumCopies
For iBM = 1 To 2
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber" & iBM).Range
With Rng1
.Delete
.Text = SerialNumber
With .Font
.Bold = True
.Italic = True
.Name = "Castellar"
.Size = 8
End With
End With
ActiveDocument.Bookmarks.Add Name:="SerialNumber" & iBM, Range:=Rng1
Next iBM
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
ActiveDocument.Save
End Sub

Ciao, ho inserito il codice come mi hai detto e mi da errore "errore di compilazione" "wend senza wile" ??? cosa devo fare?
Ciao grazie e scusa l'ora

Scusa volevo scrivere while

Sicuro di aver copiato tutto o di non aver cancellato accidentalmente qualcosa?
Vedi il codice presente nel modulo vba di questo doc.
https://www.dropbox.com/s/7jj509wg28gdttu/10.docm?dl=0

il file che mi hai inviato non si apre, cmq ho risolto tutto ok!
grazie

Scusami ancora, ultima domanda se volessi far partire la numerazione con piu' cifre es: 0001, 0002 ecc. cosa devo aggiungere?
Grazie e scusami ancora penso che con questo ho finito di darti fastidio.

Strano che il file non si apra.
Ho appena provato e da me si apre regolarmente.
.Txt = Format(SerialNumber, "000#")

Ok! Risolto l'apertura, la stringa dove la devo inserire?

Al posto di
.Text = SerialNumber
inserisci
.Text = Format(SerialNumber, "000#")

ciao

[..:: GiGhEn ::..]

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..
Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
Dim SerialNumber As String
Dim Counter As Long
Dim iBM As Long
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Counter = 0
While Counter < NumCopies
For iBM = 1 To 2
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber" & iBM).Range
With Rng1
.Delete
.Text = SerialNumber
With .Font
.Bold = True
.Italic = True
.Name = "Castellar"
.Size = 8
End With
End With
ActiveDocument.Bookmarks.Add Name:="SerialNumber" & iBM, Range:=Rng1
Next iBM
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
ActiveDocument.Save
End Sub

Ciao, ho inserito il codice come mi hai detto e mi da errore "errore di compilazione" "wend senza wile" ??? cosa devo fare?
Ciao grazie e scusa l'ora

Scusa volevo scrivere while

Sicuro di aver copiato tutto o di non aver cancellato accidentalmente qualcosa?
Vedi il codice presente nel modulo vba di questo doc.
https://www.dropbox.com/s/7jj509wg28gdttu/10.docm?dl=0

il file che mi hai inviato non si apre, cmq ho risolto tutto ok!
grazie

Scusami ancora, ultima domanda se volessi far partire la numerazione con piu' cifre es: 0001, 0002 ecc. cosa devo aggiungere?
Grazie e scusami ancora penso che con questo ho finito di darti fastidio.

Strano che il file non si apra.
Ho appena provato e da me si apre regolarmente.
.Txt = Format(SerialNumber, "000#")

Ok! Risolto l'apertura, la stringa dove la devo inserire?

Al posto di
.Text = SerialNumber
inserisci
.Text = Format(SerialNumber, "000#")
ciao

Caio, il codice che mi hai inviato con reletive modifiche daa me chieste funziona alla meraviglia, ma oltre a fare il suo compito l'ultimo passaggio non me lo fa e precisamente avviare la stampa come faceva prima. Cosa mi è successo? Se vuoi ti posto il file.
Ciao e grazie di nuovo.

[casanmaner]

Post by ..:: GiGhEn ::..

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..
Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
Dim SerialNumber As String
Dim Counter As Long
Dim iBM As Long
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Counter = 0
While Counter < NumCopies
For iBM = 1 To 2
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber" & iBM).Range
With Rng1
.Delete
.Text = SerialNumber
With .Font
.Bold = True
.Italic = True
.Name = "Castellar"
.Size = 8
End With
End With
ActiveDocument.Bookmarks.Add Name:="SerialNumber" & iBM, Range:=Rng1
Next iBM
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
ActiveDocument.Save
End Sub

Ciao, ho inserito il codice come mi hai detto e mi da errore "errore di compilazione" "wend senza wile" ??? cosa devo fare?
Ciao grazie e scusa l'ora

Scusa volevo scrivere while

Sicuro di aver copiato tutto o di non aver cancellato accidentalmente qualcosa?
Vedi il codice presente nel modulo vba di questo doc.
https://www.dropbox.com/s/7jj509wg28gdttu/10.docm?dl=0

il file che mi hai inviato non si apre, cmq ho risolto tutto ok!
grazie

Scusami ancora, ultima domanda se volessi far partire la numerazione con piu' cifre es: 0001, 0002 ecc. cosa devo aggiungere?
Grazie e scusami ancora penso che con questo ho finito di darti fastidio.

Strano che il file non si apra.
Ho appena provato e da me si apre regolarmente.
.Txt = Format(SerialNumber, "000#")

Ok! Risolto l'apertura, la stringa dove la devo inserire?

Al posto di
.Text = SerialNumber
inserisci
.Text = Format(SerialNumber, "000#")
ciao

Caio, il codice che mi hai inviato con reletive modifiche daa me chieste funziona alla meraviglia, ma oltre a fare il suo compito l'ultimo passaggio non me lo fa e precisamente avviare la stampa come faceva prima. Cosa mi è successo? Se vuoi ti posto il file.
Ciao e grazie di nuovo.

Non hai notato che prima di:
ActiveDocument.PrintOut
ho inserito un "apostrofo" per disabilitare la stampa?
Non vorrai mica che lanci decine di stampe? :D :D :D

[..:: GiGhEn ::..]

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by casanmaner

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..

Post by ..:: GiGhEn ::..
Sub SerialNumber()
'
' SerialNumber Macro
'
'
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
Dim SerialNumber As String
Dim Counter As Long
Dim iBM As Long
' Set prompt.
Message = "Inserire il numero di copie che si desidera stampare"
' Set title.
Title = "Print"
' Set default.
Default = "1"
' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("c:\Settings.Txt", "MacroSettings", "SerialNumber")
If SerialNumber = "" Then
SerialNumber = 1
End If
Counter = 0
While Counter < NumCopies
For iBM = 1 To 2
Set Rng1 = ActiveDocument.Bookmarks("SerialNumber" & iBM).Range
With Rng1
.Delete
.Text = SerialNumber
With .Font
.Bold = True
.Italic = True
.Name = "Castellar"
.Size = 8
End With
End With
ActiveDocument.Bookmarks.Add Name:="SerialNumber" & iBM, Range:=Rng1
Next iBM
ActiveDocument.PrintOut
SerialNumber = SerialNumber + 1
Counter = Counter + 1
Wend
'Save the next number back to the Settings.txt file ready for the next use.
System.PrivateProfileString("c:\Settings.txt", "MacroSettings", "SerialNumber") = SerialNumber
ActiveDocument.Save
End Sub

Ciao, ho inserito il codice come mi hai detto e mi da errore "errore di compilazione" "wend senza wile" ??? cosa devo fare?
Ciao grazie e scusa l'ora

Scusa volevo scrivere while

Sicuro di aver copiato tutto o di non aver cancellato accidentalmente qualcosa?
Vedi il codice presente nel modulo vba di questo doc.
https://www.dropbox.com/s/7jj509wg28gdttu/10.docm?dl=0

il file che mi hai inviato non si apre, cmq ho risolto tutto ok!
grazie

Scusami ancora, ultima domanda se volessi far partire la numerazione con piu' cifre es: 0001, 0002 ecc. cosa devo aggiungere?
Grazie e scusami ancora penso che con questo ho finito di darti fastidio.

Strano che il file non si apra.
Ho appena provato e da me si apre regolarmente.
.Txt = Format(SerialNumber, "000#")

Ok! Risolto l'apertura, la stringa dove la devo inserire?

Al posto di
.Text = SerialNumber
inserisci
.Text = Format(SerialNumber, "000#")
ciao

Caio, il codice che mi hai inviato con reletive modifiche daa me chieste funziona alla meraviglia, ma oltre a fare il suo compito l'ultimo passaggio non me lo fa e precisamente avviare la stampa come faceva prima. Cosa mi è successo? Se vuoi ti posto il file.
Ciao e grazie di nuovo.

ActiveDocument.PrintOut
ho inserito un "apostrofo" per disabilitare la stampa?
Non vorrai mica che lanci decine di stampe? :D :D :D

Ok! Fatto era come dicevi tu, in effetti non me ne ero accorto.
Ma se disabilitando "PrintOut" mi salva l'ultima pagina che ha numerato, oppure quando dopo salvato avvio la stampa mi stampa tutte le numerazioni che gli ho dato? Io credo che mi stampi solo l'ultima pagina salvata con l'ultimo numero che gli ho dato.