Effettuare stampe sul server
Questo script effettua una stampa sulla stampante collegata al server (non sul client) come testo semplice, senza formattazione.
<%
strTesto = "TEST - STAMPA" & VbCrLf & "Altra riga"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objStampante = FSO.CreateTextFile("LPT1:", True)
' identico alla stampa su file
objStampante.Write(strTesto)
If Err Then
Response.Write "Errore: " & Err.Description
Err.Clear
Else
Response.Write "Stampa effettuata!"
End if
' libero risorse
objStampante.Close
set objStampante = Nothing
set FSO = Nothing
%>In pratica, creiamo un file di nome LTP1 (o comunque uguale al nome della porta a cui è collegata la stampante) e mandiamo in stampa esattamente come se cercassimo di creare un semplice file di testo.
Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
Approfondimenti
Nessuna risorsa collegata
