I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
robbe2000
robbe2000
il 7 ottobre 2009 alle 10:33
11 messaggi dal 17 novembre 2004
CIao a tutti ho 10 documenti word e li vorrei stampare da codice asp uno dietro l'altro qualcuno mi sa aiutare.
Cercando da qualche parte ho trovato questo pezzo di codice il problema è che non posso sapere il percorso ed il nome della stampante così rimango bloccata.
Qualcuno mi sa dare una mano?
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)
RispondiQuoting
robbe2000
robbe2000
il 7 ottobre 2009 alle 11:32
11 messaggi dal 17 novembre 2004
Ho scoperto che non posso inviare direttamente il documento in stampa allora pensavo di prendere tutti i documenti e legarli uno sotto l'altro e poi creare un documento unico.
Il problema è che la variabile contiene tutti i documenti ma nel word finale mi scrive solo il primo documento trovato.


Posto il codice completo magari qualcuno mi sa aiutare.

id_pers avrà all'interno: 1 , 51 ,61 ,154, etc........

Ho provato anche a appendere i dati nel file all'interno del ciclo ma non ho risolto niente


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 "<br>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 strDoc
f.Close  
Set f = Nothing
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.