[AspPDF] Scrittura file .pdf

[Iron83]

Ciao a tutti,

oggi ho installato il componente AspPDF offerto da PERSITS, devo dire che sono molto soddisfatto del funzionamento.

Attualmente mi trovo davanti ad un piccolo problema, procedo a spiegarvi cosa sto cercando di fare:

Apro un file PDF già esistente, scrivo all'interno del file la copyright dell'azienda, fino a qui niente di strano. Il fatto è che ho bisogno di scrivere la copyright all'interno di tutte le pagine (il totale delle pagine è variabile).

Ho quindi recuperato il numero massimo delle pagine utilizzando l'attributo Doc.Pages.Count, quando vado però ad inserire un ciclo FOR mi da errore:

..................

TotPag = Doc.Pages.Count
for i = 1 to TotPag
 Set Pag(i) = Doc.Pages(i)
next
.................. 

Errore:

Tipo non corrispondente: 'Pag' line 9 ( ovvero Set Pag(i) = Doc.Pages(i) )

Chiedo venia qualora sarà una banalità ma mi sono bloccato

[Iron83]

Aggiungo:

il mio scopo è di incrementare l'attributo Pag partendo dal numero massimo di pagine che ho per quel file specifico:

Set Pag1 = Doc.Pages(1)
Set Pag2 = Doc.Pages(2)
................................. 
Set Pag10 = Doc.Pages(10) 

in modo da poter aggiungere la copyright in tutte le pagine

Param.Add("x=70, y=698")
Page1.Canvas.DrawText Propietario, Param, Font
Page2.Canvas.DrawText Propietario, Param, Font
.................................................................
Page10.Canvas.DrawText Propietario, Param, Font 

[br1]

Non ho idea del perche' sia necessario agire in due tempi... io la penserei cosi':

TotPag = Doc.Pages.Count 
for i = 1 to TotPag 
 Set Pag = Doc.Pages(i) 
 Param.Add("x=70, y=698")
 Pag.Canvas.DrawText Propietario, Param, Font
next

Prendila solo come concetto... ripeto: non ho idea di cosa ci sia dietro e in mezzo...

[Iron83]

Ciao br1,

grazie per la risposta.

In realtà ho postato il codice "diviso" ma fa parte dello stesso ciclo. Oggi appena ho un attimo testo quello che hai postato e inserisco l'intero script.