R&S FSP
If Left$(Devices$(i), 2) = "''" Then GoTo SelectDevice
Print "Printer" + Str$(i) + ": "; Devices$(i)
Next i
SelectDevice:
REM - Choix du périph. de sortie, du langage d'imprimante et de l'interf. de sortie
---
status = viWrite(analyzer, "SYST:COMM:PRIN:SEL " + Devices(6), 19 + Len(Devices(6)),
retCnt)
status = viWrite(analyzer, "HCOP:DEST 'SYST:COMM:PRIN'", 26, retCnt)
imprimante"
status = viWrite(analyzer, "HCOP:DEV:LANG GDI", 17, retCnt)
REM -- Choix de l'orientation (portrait/paysage) et couleur/noir et blanc -----
status = viWrite(analyzer, "HCOP:PAGE:ORI PORTrait", 22, retCnt)
status = viWrite(analyzer, "HCOP:DEV:COL OFF", 16, retCnt)
REM -- Configuration et lancement de l'impression écran -------------------------
status = viWrite(analyzer, "HCOP:ITEM:ALL", 13, retCnt)
'status = viWrite(analyzer, "HCOP:ITEM:WIND1:TRACE:STAT ON", 29, retCnt)
'status = viWrite(analyzer, "HCOP:ITEM:WIND2:TRACE:STAT ON", 29, retCnt)
status = viWrite(analyzer, "*CLS", 4, retCnt)
status = viWrite(analyzer, "HCOP:IMMediate;*OPC?", 19, retCnt)
status = viRead(analyzer, result$, 100, retCnt)
REM - Impression écran en WMF (format BMP) dans un fichier -----------------------
status = viWrite(analyzer, "HCOP:DEST 'MMEM'", 16, retCnt)
status = viWrite(analyzer, "HCOP:DEV:LANG WMF", 17, retCnt)
'status = viWrite(analyzer, "HCOP:DEV:LANG BMP", 17, retCnt)
status = viWrite(analyzer, "MMEM:NAME 'D:\USER\DATA\PRINT1.WMF'", 35, retCnt)
status = viWrite(analyzer, "*CLS", 4, retCnt)
status = viWrite(analyzer, "HCOP:IMMediate;*OPC?", 19, retCnt)
status = viRead(analyzer, result$, 100, retCnt)
END SUB
REM ************************************************************************
1164.4556.63
Exemples de programmation détaillés
'Abandon en fin de liste
'Affiche le nom d'imprimante
'Choisit l'imprimante #6
'Configuration : "Impr. écran sur interf.
'Les imprimantes exigent le langage 'GDI'
'Orientation portrait
'Impression noir et blanc
'Contenu total de l'écran
'Alternative : uniquement courbes sur l'écran A/B
'Remet la gestion d'état à l'état initial
'Lance l'impression écran
'Configuration : "Impression écran dans fichier"
'Format de fichier WMF
'Format de fichier BMP
'Définit le nom du fichier
'Remet la gestion d'état à l'état initial
'Lance l'impression écran
7.21
F-2