
28/10/2009, 14:30
|
| | Fecha de Ingreso: octubre-2009
Mensajes: 9
Antigüedad: 15 años, 3 meses Puntos: 0 | |
Respuesta: Necesito Imprimir en Impresora de Ticket Kseso:
Ya logre la Impresion utilizando el siguiente metodo: Esto es en ASP
'-------------------------------------------------------'
'Declaro Variables que voy a Imprimir
Dim Titulo
Titulo = "cualquier Cosa"
Dim Fecha
Fecha = Date()
'Asi preparo cada una de las variables
' IMPRIME
'
Dim impresora
impresora = "\\PC-Name\Printer-Name"
' 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 ahora tengo una nueva duda quizas puedas 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"
Si alguien pudiera decirme como hacerlo Agredeceria muchisimo.
Saludos y Gracias |