Código do programa:
<linguagem script=VBScript>
Função print_onclick //Função de impressão
Etiqueta escura
label=document.printinfo.label.value //Obtém os dados da página HTML
set objfs=CreateObject("Scripting.FileSystemObject") //Cria uma instância do objeto componente FileSystem
set objprinter=objfs.CreateTextFile ("LPT1:",true) //Estabelece uma conexão com a impressora
objprinter.Writeline("____________________________") //Exibe o conteúdo impresso
objprinter.Writeline("| |")
objprinter.Writeline("| Os dados que você imprime são: "&label& " |")
objprinter.Writeline("| |")
objprinter.Writeline("|_______________________________|")
objprinter.close //Desconecta da impressora
Definir objprinter = nada
Set objfs=nada //Fecha o objeto do componente FileSystem
Função final
</script>
Script do lado do servidor:
<%
Definir conn=server.CreateObject ("adodb.connection")
conn.Open "DSN=nome;UID=XXXX;PWD=XXXX;"
Definir Rs = server.CreateObject("adodb.recordset")
Rs.Open("selecionar..."),conn,1,1
Codificação da página HTML
para interação com o banco de dados
:
<HTML>
………
<FORM ID=printinfo NAME="printinfo" >
<INPUT type="button" value="Print>>" id=print name=print > //Chama a função de impressão
<INPUT type="hidden" id="text1" name="label" value=<%=…………%>> //Salva os dados enviados do servidor
………
</HTML>