Ciao a Tutti,

ho un server INTRANET(IIS vers. 51.1) su cui ho settato, come stampante PREDEFINITA,
quella di Adobe PDF;
l' ho condivisa in rete, chiamando la connessione Adobe_PDF9

ho copiato l' esempio presente nel Forum relativo ad una stampante di rete e mi funziona,
se scelgo una stampante che vedo nell' elenco che mi appare, se e' accesa,
riesco a stampare il contenuto presente nel campo "Testo" ...

Prendendo spunto da questo esempio,
lo vorrei semplificare in quanto non ho bisogno ne' di user, ne' di password, ne' di un elenco,
vorrei solo settare come stampante predefinita quella di Adobe PDF e fare cosi' la stampa diretta su PDF file ...

Ho provato a scegliere come stampante, dal menu' a tendina che appare, Adobe PDF ma il messaggio di errore che mi da', quando schiaccio il pulsante Stampa, e':
"Tipo di risorsa di rete non corretto"

Chiederei gentilmente il codice per generare il file pdf direttamente dalla stampante condivisa Adobe_PDF9, cosi' che

SIA io Administrator CHE il generico CLIENT che apre la pagina test.asp via http,

possiamo ottenere automaticamente il pdf ...

Grazie mille in anticipo !!!!

**********
Qui il codice della pagina test.asp

<%@ Language=VBScript %>
<% Option Explicit
Response.Expires=0
'
Dim strSottomissione, strPercorsoStampante, strTesto
Dim strUsername, strPassword
Dim ciclo, IntMaxConn
'
Dim objFileSystem, objWSHNet, objStampante
'
strSottomissione = Request.Form("Sottomissione")
'
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Stampa via browser su stampante di rete</title>
</head>
<body text="blue">
<h1>Stampa via browser su stampante di rete</h1>
<%
If strSottomissione = "" Then
%>
<form action='<%=Request.ServerVariables("SCRIPT_NAME")% >' method="POST">
<table wdith=90% border="0">
<tr>
<td >Stampante selezionata:</td>
<td><select name="PercorsoStampante">
<%
'
Set objWSHNet = CreateObject("WScript.Network")
Set objStampante = objWSHNet.EnumPrinterConnections
IntMaxConn=objStampante.Count
'
if IntMaxConn>0 then
for ciclo=0 to IntMaxConn - 1
response.write "<option>" & objStampante.Item(ciclo)
next
end if
'
%>
</select></td>
</tr>
<tr><td>User-ID:</td><td><input type="text" name="username" value="<%=strUsername%>"></td></tr>
<tr><td>Password:</td><td><input type="password" name="password"></td></tr>
<tr><td>Testo:</td><td><textarea rows="4" cols="30" name="Testo"></textarea></td></tr>
<tr><td colspan="2"><input type="submit" value="Stampa!" name="Sottomissione"></td></tr>
</table>
</form>
<%
'
Else
'
strPercorsoStampante = Request.Form("PercorsoStampante")
strUsername = Request.Form("username")
strPassword = Request.Form("password")
strTesto = Request.Form("Testo")
'
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objWSHNet = CreateObject("WScript.Network")
objWSHNet.AddPrinterConnection "LPT1", strPercorsoStampante, False, strUsername, strPassword
'
Set objStampante = objFileSystem.CreateTextFile("LPT1:", True)
objStampante.Write(strTesto)
On Error Resume Next
objStampante.Close
'
If Err Then
Response.Write ("Errore # " & CStr(Err.Number) & " " & Err.Description)
Err.Clear
Else
Response.Write("E' stato stampato il seguente testo:")
Response.Write("<pre>" & strTesto & "</pre>")
Response.Write("Percorso della stampante di rete:")
Response.Write( strPercorsoStampante & "")
Response.Write("Login ID:")
Response.Write( strUsername & "")
End If
'
objWSHNet.RemovePrinterConnection "LPT1:"
Set objWSHNet = Nothing
Set objFileSystem = Nothing
Set objStampante = Nothing
'
End If
%>
</body>
</html>