a lo mejor este codigo te puede servir
Código HTML:
<%@ Language="VBScript" %>
<% Option Explicit %>
<html>
<head>
<title>ASP 101's Server-Side Printing Sample</title>
</head>
<body>
<%
Dim objFSO
Dim objPrinter
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objPrinter = objFSO.CreateTextFile("LPT1:", True)
objPrinter.WriteLine "This is a test of printing from ASP!"
objPrinter.Write vbFormFeed
objPrinter.Close
Set objPrinter = Nothing
Set objFSO = Nothing
%>
</body>
</html>
prueba y comenta