Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Impresion en impresoras conectadas por puerto IDN

22/08/2003 - 02:11 por Meso | Informe spam
Ayuda Hacer una pregunta
Hola grupo:

Alguien ha realizado una aplicacion de Restaurantes en
donde el sistema mande a imprimir a varias impresoras al
mismo tiempo.

La situacion es la siguiente: Tengo 3 impresoras una en el
bar y dos en cocinas, una para el area de hamburguesas y
otra para el area de platos fuertes. Una vez que el mesero
mete una orden de una cerveza (que rico), y una ensalada,
se debe de generar una impresion de orden al bar para la
cerveza y a la cocina para la hamburguesa, como hago esto,
se los agradeceria ya que actualmente estoy montando el
sistema y me pegue en esta parte.

De antamano muchas gracias.

Meso
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Rene Moreno
22/08/2003 - 19:21 | Informe spam
Hola Meso, hace tiempo copie este codigo de un mebnsage del grupo de excel,
lo copie porque se me hizo interesante, aunque no lo he aplicado nunca,
espero te pueda servir, o al menos orientar.

Sub Activa_Disponible()
Dim EnSistema As Object, Conexiones As Object, Mensaje As String, Sig As
Integer
Mensaje = "Las impresoras disponibles son:"
Set EnSistema = CreateObject("WScript.Network")
Set Conexiones = EnSistema.EnumPrinterConnections
With Conexiones
For Sig = 0 To .Count - 1 Step 2
Mensaje = Mensaje & vbCr & (Sig + 2) / 2 & ".- " & .Item(Sig + 1) &
"en " & .Item(Sig)
Next
End With
Mensaje = Mensaje & vbCr & vbCr & "Impresora activa:" & vbCr & _
Application.ActivePrinter
Set Conexiones = Nothing
Set EnSistema = Nothing
MsgBox Mensaje, , "Lista de impresoras"
End Sub
'='Para seleccionar alguna (de varias), podrías "cargarlas" a un cuadro de
'lista o una matriz,
'adecuando partes del código anterior.

Comentas si funciono.
Atte. Rene Moreno
"La imaginacion es mas importante que el conocimiento"

Preguntas similares

 

Busqueda sugerida :