Rohde & Schwarz R&S FSU3 Guide De Démarrage Rapide page 197

R&S FSU
For i = 1 To 99
status = viWrite(analyzer, "SYST:COMM:PRIN:ENUM:NEXT?", 24, retCnt)
status = viRead(analyzer, Devices$(i), 100, retCnt)
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)
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 ************************************************************************
1166.1725.63
Exemples de programmation détaillés
'Lit le prochain nom d'imprimante
'Abandon en fin de liste
'Affiche le nom d'imprimante
'Choisit l'imprimante #6
'Configuration : "Impr. écran sur interf. imprimante"
'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-1