Rohde & Schwarz FSQ series, Quick Start Manual

Page: 207 / 229

Quick Start Guide 1313.9652.62 - 02 7.25
R&S FSQ Brief Introduction to Remote Control
Detailed Programming Examples
7.2.5 Configuring and Starting a Printout
The following example shows how to configure the output format and output device for printing
out a measurement screen.
The procedure is as follows:
1. Set the measurement you want for the printout.
2. Check which output devices are available on the instrument.
3. Select an output device.
4. Select the output interface.
5. Configure the output format.
6. Start the printout with synchronization to the end.
It is assumed that the desired setting is a signal at 100 MHz with a power of –20 dBm. It is also
assumed that the sixth printer out of the available printers that are listed is the one you want.
The printout is first output to the selected printer and then to a file.
REM ************************************************************************
Public Sub HCopy()
Dim status As ViStatus
Dim retCnt As Long
Dim Devices(100) As String
'Create buffer for printer name
For i = 0 To 49
Devices$(i) = Space$(50)
'Preallocate buffer for printer name
Next i
REM ------ Default setting of the R&S FSQ ----------------------------------
Call SetupStatusReg
'Configure status register
status = viWrite(analyzer, "*RST", 4, retCnt)
'Reset instrument
status = viWrite(analyzer, "INIT:CONT OFF", 13, retCnt)
'Single sweep mode
status = viWrite(analyzer, "SYST:DISP:UPD ON", 16, retCnt)
'Screen display on
REM ------ Measurement settings --------------------------------------------
status = viWrite(analyzer, "FREQ:CENT 100MHz;SPAN 10MHz", 27, retCnt)
'Frequency setting
status = viWrite(analyzer, "DISP:WIND:TRAC:Y:RLEV -10dBm", 28, retCnt)
'Reference Level
status = viWrite(analyzer, "INIT;*WAI", 10, retCnt)
'Perform measurement
REM ------ Querying the available output devices --------------------------
status = viWrite(analyzer, "SYST:COMM:PRIN:ENUM:FIRSt?", 26, retCnt)
'Read out and display first output device
status = viRead(analyzer, Devices$(0), 100, retCnt)
Print "Printer 0: " + Devices$(0)