Stampa più documenti selezionati

[robbe2000]

Ciao a tutti avrei bisogno da asp di stampare tanti documenti word. Mi spiego meglio faccio una funzione che mi crea l'attestato per ogni persona.
dopo ho l'elenco di 10-100-1000 non so di persone a cui è stato creato l'attestato.

L'utente seleziona x nominativi e seleziona il tasto stampa.

A questo punto devo poter stampare tutti gli attestati collegati da asp qualcuno mi sa dire come faccio?

[barney09]

io la butto li...

quando lui seleziona e preme, puoi creare un nuovo file WORD con dentro tutti gli attestati.

[robbe2000]

ma fa anche l'interruzione di pagina correttamente?

[barney09]

non ho mai usato word da asp, pero' non credo ci siano problemi.

Prova a documentarti su scrivere file word da ASP

[robbe2000]

Ho provato a prendere il contenuto di tutti i documenti e scriverlo in una variabile.
Se visualizzo il contenuto della variabile trovo tutti i documenti interessati però nel foglio generale mi stampa solo il primo e basta

[robbe2000]

nessuno mi sa aiutare?
Ho trovato questo esempio ma non va bene al mio caso in quanto è in intranet mentre io non saprei nemmeno come si chiama la stampante

Set objNet = CreateObject("WScript.Network")

objNet.AddPrinterConnection "LPT1", "\\192.168.10.95\hp990cxi", false 
Set objFileSystem = CreateObject("Scripting.FileSystemObject") 
Set objStampante = objFileSystem.CreateTextFile("LPT1:", True)

objStampante.WriteLine(strDoc) 

Set fso1 = CreateObject("Scripting.FileSystemObject")
Set f = fso1.OpenTextFile(Server.MapPath("Attestati/Stampatot.doc"), 2, True)

f.Write strDocumento
f.Close	
Set f = Nothing

[barney09]

se tu devi far stampare il client, devi per forza fargli visualizzare il documento e tramite javascript aprigli la finestra della stampa. Non puoi da una pagina ASP mandare dei documenti in stampa sul client.

L'unica e generargli un unico file, visualizzarglielo e permettergli di stamparlo, oppure di scaricarlo.

[robbe2000]

ho provato a generale un unico file ma non riesco.

Ho creato una serie di documenti .doc

Faccio un ciclo

per ogni documento prendo tutto il testo e lo metto in una variabile

           Set fso = CreateObject("Scripting.FileSystemObject")
	'carico l'allegato
	Set f = fso.OpenTextFile(Server.MapPath("Attestati/documentoX.doc"), 1)
	'Leggo tutto il contenuto del documento
	strDoc = f.ReadAll
	f.Close
             
            strDocumento = strDocumento & strDoc

all'interno del ciclo compongo una nuova stringa con il documento precendente più quello successivo.

Fuori dal ciclo dovrei creare un file finale con tutti i file uno sottol'altro.

Set fso1 = CreateObject("Scripting.FileSystemObject")
Set f = fso1.OpenTextFile(Server.MapPath("Attestati/Stampatot.doc"), 2, True)

f.Write strDocumento
f.Close

Set f = Nothing

A questo punto dovrei avere il file completo ma invece ho solo il primo documento lanciato. Se per caso visualizzo la variabile invece trovo tutti i documenti che mi interessano.

[robbe2000]

Questo è il codice finale che ho scritto all'interno della pagina.

Dove id_pers = tanti documenti quanti ha selezionato l'utente.

Response.Expires = -1500
response.buffer = True
Session("utente") = request("utente")

id_incontro = request("id_incontro")

id_pers =request("id_pers")


arrid_pers = split(id_pers,",")

strDocumento = ""
for i = 1 to ubound(arrid_pers)
	response.write "
attestato=" & trim(arrid_pers(i))
	
	Set fso = CreateObject("Scripting.FileSystemObject")
	'carico l'allegato
	Set f = fso.OpenTextFile(Server.MapPath("Attestati/" & trim(arrid_pers(i)) &".doc"), 1)
	'Leggo tutto il contenuto del documento
	strDoc = f.ReadAll
	f.Close
	
	strDocumento = strDocumento & strDoc	
next

Set fso1 = CreateObject("Scripting.FileSystemObject")
Set f = fso1.OpenTextFile(Server.MapPath("Attestati/Stampatot.doc"), 2, True)

f.Write strDocumento
f.Close	
Set f = Nothing

[barney09]

come ti ho detto non ho purtroppo esperienza legata a scrivere doc in word da ASP.

Sicuramente c'è qualcosa che non va...

tipo, guardando lo script leggo

Set f = fso1.OpenTextFile(Server.MapPath("Attestati/Stampatot.doc"), 2, True)

il 2 è for writing, quidni ti sovrascrive sempre il file.

Dovrebbe essere 8, cioè for Appending.

prova con l'8.