Bene allora dimentichiamoci per il momento dei dati
Se il problema è di 25 righe stamparne 10 + 10 + 5 io farei
- un file di testo ( .txt )
- lo crei con VBA
- lo scrivi con un ciclo
- ne controlli con la variabile Y l'avanzamento fino alla riga 10
---- se 10 lanci la stampa del file
- al raggiungimento del 25 interrompi il ciclo
Public Function StTxt01()
Dim Per As String
'Per = CurrentProject.Path & "\"
Per = "C:\TuoPercorso\"
Dim Nom As String
Nom = "TxSt.txt"
Dim NuTo As Integer ' Il totale di righe da stampare
NuTo = 25
Dim NuPa As Integer ' Le righe per ogni pagina
NuPa = 10
Dim Y As Integer ' Il cursore della riga nella pagina specifica
Y = 1
Dim X As Integer ' Il cursore della riga nelle varie pagine
Open Per & Nom For Output As #1#
For X = 1 To NuTo
Print #1, "Riga " & X & " --- " & Y
If Y = NuPa Then
Print #1, " xxxxxxx Fine pagina"
Y = 1
' Qui dobbiamo stampare ilfile .txt
' poi chiuderlo (Close #1)
' poi riaprirlo (Open Per & Nom For Output As #1#)
Else
Y = Y + 1
End If
Next X
Close #1
End Function
Facci sapere se la soluzione è percorribile.
PS: In questo momento non so come lanciare da VBA ( o VisualBasic )
la stampa di un file esterno .txt
ma magari qualcun' altro puo auitarci
.