Newsgroup: it.comp.os.win.software
Titolo: Word. Come posso stampare su un lungo doc intervalli di pagine.

Ho bisogno di stampare su lunghi documenti intervalli di pagine che
corrispondano a singole stampe, cioč per esempio se ho un documento di
1000 pagine vorrei stampare le pagine da 1-3, 4-6,7-9,... in cui ogni
intervallo di stampa corrisponde ad una singola stampa. Cerco un
esempio di macro per questo tipo di problema.
Ringrazio chi risponde.
Marco

Non hai biosogno di nessuna macro lo fa già word per te nel menù File ->
Stampa ....
Puoi elencare le pagine separando con trattini gli intervalli e con virgole
intervalli diversi segliendo l'opzione Stampa Pagine.
Questo a meno che tu non abbia un Word paleozoico ..... in tal caso non c'è
macro che tenga !!!!
--
Bye Bye Csilo

 ha scritto nel messaggio
news:8fmchi$m0e$1...@pinco.nettuno.it...


 costruzione di una macro.
In linea di massima, si`. Ovviamente. Ma non ho colto lo
spirito del discorso. Puoi precisare?
--
Ciao.
Maurizio

 spirito del discorso. Puoi precisare?
Tutto questo perchè ho una stampante che "pinza" e la pinzatura non
riesco a gestirla nel senso che in una stampa unione ad ogni record
stampato le pagine devono essere pinzate invece non mi funziona così
perchè la pinzatura avviene solo a fine stampa. Per cui ho provato a
fare una macro del genere:
------------------------------------
Sub Pinzatura()
frmPINZA.Show   'Visualizza maschera di Stampa pinzatura
End Sub
------------------------------------
Private Sub CommandButton1_Click()
If ActiveDocument.MailMerge.State = wdMainAndDataSource Then
 With ActiveDocument.MailMerge
    .DataSource.FirstRecord = frmPINZA.TextBox1 ' primo record da cui
stampare
    .DataSource.LastRecord = frmPINZA.TextBox2  ' ultimo record da
stampare
    ActiveDocument.MailMerge.ViewMailMergeFieldCodes = False
    .DataSource.ActiveRecord = frmPINZA.TextBox1
 End With
 For j = frmPINZA.TextBox1 To frmPINZA.TextBox2
    '  ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
    ActiveDocument.PrintPreview
    ActiveDocument.ClosePrintPreview
    ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
  Next j
End If
End Sub
-------------------------------------------
Private Sub CommandButton2_Click()
If ActiveDocument.MailMerge.State = wdMainAndDataSource Then
 With ActiveDocument.MailMerge
    .DataSource.FirstRecord = frmPINZA.TextBox1 ' primo record da cui
stampare
    .DataSource.LastRecord = frmPINZA.TextBox2  ' ultimo record da
stampare
     ActiveDocument.MailMerge.ViewMailMergeFieldCodes = False
    .DataSource.ActiveRecord = frmPINZA.TextBox1
 End With
 For j = frmPINZA.TextBox1 To frmPINZA.TextBox2
    ActiveDocument.PrintOut
    ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
  Next j
If Options.PrintBackground = True Then
    jobs = Application.BackgroundPrintingStatus
End If
If Application.BackgroundPrintingStatus > 0 Then
    StatusBar = Application.BackgroundPrintingStatus _
        & " code di stampa"
End If
End If
End Sub
------------------------------------------
Private Sub CommandButton3_Click()
frmPINZA.TextBox1 = ""
frmPINZA.TextBox2 = ""
frmPINZA.Hide
End Sub
---------------------------------------
Vorrei migliorare questa macro perchè generando tanti file di stampa
per quanti sono i record posso incorrere nell'errore di "spool32...",
qualche idea?
Ciao
Marco