![Rohde & Schwarz FSQ series Quick Start Manual Download Page 208](http://html.mh-extra.com/html/rohde-and-schwarz/fsq-series/fsq-series_quick-start-manual_1477838208.webp)
R&S FSQ
Brief Introduction to Remote Control
Detailed Programming Examples
7.26
Quick Start Guide 1313.9652.62 - 02
For i = 1 To 99
status = viWrite(analyzer, "SYST:COMM:PRIN:ENUM:NEXT?", 24, retCnt)
'Read out next printer name
status = viRead(analyzer, Devices$(i), 100, retCnt)
If Left$(Devices$(i), 2) = "''" Then GoTo SelectDevice
'Stop at end of list
Print "Printer" + Str$(i) + ": "; Devices$(i)
'Display printer name
Next i
SelectDevice:
REM - Selection of output device, printer language and output interface ----
status = viWrite(analyzer, "SYST:COMM:PRIN:SEL " + Devices(6), 19 + Len(Devices(6)),
retCnt)
'Printer selection #6
status = viWrite(analyzer, "HCOP:DEST 'SYST:COMM:PRIN'", 26, retCnt)
'Configuration: "Printout to printer interface"
status = viWrite(analyzer, "HCOP:DEV:LANG GDI", 17, retCnt)
'Printers require printer language 'GDI'
REM -- Selection of orientation (portrait/landscape) and color/BW ---------
status = viWrite(analyzer, "HCOP:PAGE:ORI PORTrait", 22, retCnt)
'Portrait orientation
status = viWrite(analyzer, "HCOP:DEV:COL OFF", 16, retCnt)
'Black-and-white printout
REM -- Configuring and starting the printout -------------------------------
status = viWrite(analyzer, "HCOP:ITEM:ALL", 13, retCnt)
'All screen contents
status = viWrite(analyzer, "*CLS", 4, retCnt)
'Reset status administration
status = viWrite(analyzer, "HCOP:IMMediate;*OPC?", 19, retCnt)
'Start printout
status = viRead(analyzer, result$, 100, retCnt)
REM - Printout in WMF format (BMP format) to file --------------------------
status = viWrite(analyzer, "HCOP:DEST 'MMEM'", 16, retCnt)
'Configuration: "Printout to file"
status = viWrite(analyzer, "HCOP:DEV:LANG WMF", 17, retCnt)
'WMF file format
'status = viWrite(analyzer, "HCOP:DEV:LANG BMP", 17, retCnt)
'BMP file format
status = viWrite(analyzer, "MMEM:NAME 'D:\USER\DATA\PRINT1.WMF'", 35, retCnt)
'Define file name
status = viWrite(analyzer, "*CLS", 4, retCnt)
'Reset Status administration
status = viWrite(analyzer, "HCOP:IMMediate;*OPC?", 19, retCnt)
'Start printout
status = viRead(analyzer, result$, 100, retCnt)
END SUB
REM ************************************************************************
Summary of Contents for FSQ series
Page 1: ...R S FSQ Signal Analyzer Quick Start Guide Quick Start Guide Test Measurement 1313 9652 62 02 ...
Page 28: ...R S FSQ 0 4 Quick Start Guide 1313 9652 62 02 ...
Page 50: ...R S FSQ Front and Rear Panel Rear Panel Connections 1 22 Quick Start Guide 1313 9652 62 02 ...
Page 110: ...R S FSQ Basic Operation Setting Parameters 4 12 Quick Start Guide 1313 9652 62 02 ...
Page 209: ...Quick Start Guide 1313 9652 62 02 R S FSQ Appendix Appendix ...
Page 210: ...Quick Start Guide 1313 9652 62 02 R S FSQ Appendix ...
Page 220: ...R S FSQ Appendix Installing Non Plug Play Printers A 10 Quick Start Guide 1313 9652 62 02 ...