Rohde & Schwarz R&S FSU3 Handbuch Seite 196

R&S FSU
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:
'---- Auswahl von Ausgabegerät, Druckersprache und Ausgabeschnittstelle ----
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)
'----- Auswahl Ausrichtung (Portrait/Landscape) und Farbe/SW ---------------
status = viWrite(analyzer, "HCOP:PAGE:ORI PORTrait", 22, retCnt)
status = viWrite(analyzer, "HCOP:DEV:COL OFF", 16, retCnt)
'----- Konfiguration und Start des Ausdrucks -------------------------------
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)
'---- Ausdruck im WMF-Format (BMP-Format) in Datei -------------------------
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 ************************************************************************
Kompakthandbuch 1313.9617.11 - 01
Kurzeinführung Fernsteuerung
Komplexere Programmbeispiele
'Nächsten Druckernamen auslesen
'Abbruch am Listenende
'Druckernamen anzeigen
'Auswahl Drucker #6
'Konfiguration: "Ausdruck auf Druckerschnittstelle"
'Drucker benötigen Druckersprache 'GDI'
'Ausrichtung Portrait
'Schwarzweiß-Ausdruck
'Gesamter Bildschirminhalt
'Alternativ: nur Messkurven in Screen A/B
'Statusverwaltung rücksetzen
'Ausdruck starten
'Konfiguration: "Ausdruck in Datei"
'Dateiformat WMF
'Dateiformat BMP
'Dateinamen festlegen
'Statusverwaltung rücksetzen
'Ausdruck starten
7.23