Výstup měl být prostřednictvím proměnné do reportu. Nakonec jsem to vyřešil takto (třeba je to nestandardní, ale funguje):

sub VypRRT()
Dim i
Dim Report (100)
Dim FullReport
....
Set Peaks = CDS.Peaks(WhichTrace, cNamedDetPeaks + cDetUnnamedPeaks)
For i = 1 to Peaks.Count
	Set Peak = Peaks.PeakIndex(i)
	Peak.GetResult cPeakRetentionTime, RT
	Peak.GetResult cPeakArea, Area
	Peak.GetResult cPeakHeight, Height
	Peak.GetResult cPeakAreaPercent, AreaPercent
	Peak.GetResult cPeakName, PeakName
	Report(i)=Chr(9) & i & Chr(9) & Round(RT,3) & Chr(9) & Round(RT/RefRT,3) & Chr(9) &  _ 
Round(Area,0) & Chr(9) & Round(Height,2) & Chr(9) & Round(AreaPercent,5) & Chr(9) & _
PeakName & Chr(13) & Chr(10)
	'One "line" per peak
next

For i=1 to peaks.count
	FullReport=FullReport + Report (i)
next 
CDS.SetSystemWideResult FullReport 'tohle zpřístupní proměnnou FullReport pro vložení do reportu
FullReport = ""
End Sub