Ver Mensaje Individual
  #1 (permalink)  
Antiguo 29/10/2009, 10:13
tnegocio
 
Fecha de Ingreso: octubre-2009
Mensajes: 9
Antigüedad: 14 años, 5 meses
Puntos: 0
Exclamación Necesito Imprimir en Impresora de Ticket

Necesito Imprimir en Impresora de Ticket, ya me imprime bajo un invento, pero no logro que me configure la hoja. Les explico

En mi pagina ASP
'-------------------------------------------------------'
'Declaro Variables que voy a Imprimir
Dim Titulo
Titulo = "cualquier Cosa"

Dim Fecha
Fecha = Date()

'Asi preparo cada una de las variables, son varias...

' IMPRIME
'
Dim impresora
impresora = "\\PC-Name\Printer-Name"
´1ra Duda, si no pongo el nombre asi, aunque la impresora este conectada directamente al Equipo no me imprime.
' el nombre de la impresora es el recurso compartido si es que esta en una red

Set oFile = CreateObject("Scripting.FileSystemObject")
Set oPrinter = oFile.CreateTextFile(impresora)

oPrinter.write(Titulo)
oPrinter.write(Fechac)
oPrinter.write(Horas)
oPrinter.write(Factura)
oPrinter.write(LinVacia)
oPrinter.write(Subtitulo)
oPrinter.write(LinAdulto)
oPrinter.write(LinNinos)
oPrinter.write(Lin3Edad)
oPrinter.write(LinDisc)
oPrinter.write(ImporteT)
oPrinter.write(LinVacia)
oPrinter.write(Saludo)

********
Esto me imprime a la Perfeccion, sin tener que solicitar confirmacion al usuario, y sin hacer llamado a otra pagina, lo que tengo una duda quizas puedan ayudarme.

Como Imprimo en una impresora de ticket, ella misma es capaz de cortar el papel, donde termine, solo hay que darle la instruccion, la cual no conosco.

En Visual Basic 6
He probado ejemplos como este

For Each Impresora In Printers
If Impresora.DeviceName = "EPSON TM-U220 Receipt" Then
Set Printer = Impresora
End If
Next

Printer.Orientation = 1
Printer.FontName = "ARIAL"
Printer.FontSize = 16
Printer.Print " Titulo"
Printer.PaintPicture Foto, 0, 500, 1800, 1800
Printer.Print ""
Printer.Print ""
Printer.FontSize = 10
Printer.Print " " & Format(Now, "dd mmmm yyyy")
Printer.Print " " & Format(Now, "HH:MM")
Printer.Print " " & Numero
Printer.FontSize = 16
Printer.Print ""
Printer.Print ""
Printer.EndDoc

Este ejemplo si corta el papel al final de la impresion, pero en asp, no tengo la menor idea de como hacer algo parecido. Quizas sea el comando "EndDoc"

O si alguien conoce algun objeto Printer en asp, visualBasic, o java Script, que funcione ya probado en Web por favor sugieranmelo.. O algun otro metodo de Imprimir desde ASP, mas eficiente que el mio.

Si este no es el foro indicado, disculpenme y dinganme donde puedo publicarlo

Estoy pasando mucho trabajo con esto y no considero que sea algo dificil

Si alguien pudiera decirme como hacerlo Agredeceria muchisimo.
Saludos y Gracias