Rohde & Schwarz R&S FSL3 Serie Guía Rápida página 147

Introducción Breve al Control Remoto
NEXT i
SelectDevice:
'–––– Seleccionar el dispositivo de salida, lenguaje de impresión e interfaz ––––
CALL InstrWrite(analyzer,"SYST:COMM:PRIN:SEL "+ Devices(6))
CALL InstrWrite(analyzer,"HCOP:DEV:LANG GDI")
'––––-------- Seleccionar la orientación y color –-----------------––––––––
CALL InstrWrite(analyzer,"HCOP:PAGE:ORI PORT")
CALL InstrWrite(analyzer,"HCOP:DEV:COL OFF")
'––---––– Configurar e iniciar la impresión –––––––––––––––––––––––––––––––
CALL InstrWrite(analyzer,"HCOP:ITEM:ALL")
'CALL InstrWrite(analyzer,"HCOP:ITEM:TRAC:STAT ON")
CALL InstrWrite(analyzer,"*CLS")
CALL viEnableEvent(vi, VI_EVENT_SERVICE_REQ, VI_QUEUE, 0)
CALL InstrWrite(analyzer,"HCOP;*OPC")
SRQWaitTimeout = 5000
statusSRQ = viWaitOnEvent(vi, VI_EVENT_SERVICE_REQ, SRQWaitTimeout, eventType,
CALL viClose(eventVi)
CALL viDisableEvent(vi, VI_EVENT_SERVICE_REQ, VI_QUEUE)
IF NOT(statusSRQ
'–––– Impresión en formato WMF (formato BMP) a fichero ––––––––––––––––––––––––––
CALL InstrWrite(analyzer,"HCOP:DEST 'MMEM'")
CALL InstrWrite(analyzer,"HCOP:DEV:LANG WMF")
'CALL InstrWrite(analyzer,"HCOP:DEV:LANG BMP")
CALL InstrWrite(analyzer,"MMEM:NAME 'C:\R_S\Instr\user\PRINT1.WMF'")
CALL InstrWrite(analyzer,"HCOP:IMMediate;*OPC")
SRQWaitTimeout = 5000
statusSRQ = viWaitOnEvent(vi, VI_EVENT_SERVICE_REQ, SRQWaitTimeout, eventType,
1300.2519.67
IF Left$(Devices$(i),2) = "''" THEN GOTO SelectDevice
Debug.Print "Printer"+Str$(i)+": " Devices$(i)
CALL InstrWrite(analyzer,"HCOP:DEST 'SYST:COMM:PRIN'")
'Ahora esperar el "service request"
eventVi)
= 0) THEN CALL Srq
CALL InstrWrite(analyzer,"*CLS")'Resetear registros de estado
CALL viEnableEvent(vi, VI_EVENT_SERVICE_REQ, VI_QUEUE, 0)
' Ahora esperar al service request
eventVi)
'Parar al final de la lista
'Mostrar nombre de impresora
'Selección de impresora #6
'Configuración: "Impresión a
'interfaz de impresora"
'Las impresoras requieren lenguaje 'GDI'
'Orientación horizontal
'Impresión blanco y negro
'Todos los contenidos de la pantalla
'Alternativa: sólo trazas
'Resetear los registros de estado
'Habilitar el evento para "service request"
'Iniciar impresión
'Permite 5s para completarla
'Cerrar el contexto antes de continuar
'Deshabilitar los eventos siguientes
'Si no se detecta SRQ =>
'Subrutina para evaluación
'Configuración: "Printout to file"
'Formato de fichero WMF
'Formato de fichero BMP
'Definir nombre de fichero
'Habilitar el evento para "service request"
'Iniciar impresión
'Permite 5s para completarla
6.22
R&S FSL
ES-3