27/05/2009, 00:58
|
| | | Fecha de Ingreso: mayo-2009
Mensajes: 1
Antigüedad: 15 años Puntos: 0 | |
| Respuesta: Ayuda con cola de impresion ....
Hola
Prueba con esto:
Public Sub Pausar_Reanudar_Impresora(i As Integer)
Dim strComando As String
If i = 1 Then
'PAUSAR
strComando = "cscript c:\windows\system32\prnqctl.vbs -z -p " & """" & Printer.DeviceName & """"
Else
'REANUDAR
strComando = "cscript c:\windows\system32\prnqctl.vbs -m -p " & """" & Printer.DeviceName & """"
End If
Shell strComando
End Sub
Un saludo
Mónica. |