Impresion en impresoras conectadas por puerto IDN

22/08/2003 - 02:11 por Meso | Informe spam

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

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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"

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida