Такое сочетание работает:
set printer on
? ...
?....
set printer off
set printer to
*-------------------------------------------
Вот еще моя функция, которая распечатывает текстовый файл. Может пригодится.
*-----------------------------------------------
* G_PrnFlTxt(tFl,tFont,tSize,tStyle) Печать текстового файла
* tFl- имя файла с полным путем
*
*-----------------------------------------------
Function G_PrnFlTxt
Parameters tFl,tFont,tSize,tStyle
Local lPrn,dt,stroka, kt,par
kt=Parameters()
tFont=iif(kt>1,tFont,["CourierNew"])
tSize=iif(kt>2,tsize,10)
tStyle=iif(kt>3,tStyle,["N"])
par="Font " +iif(empty(tFont),["CourierNew"],tFont)+"," ;
+iif(empty(tsize),"10",alltrim(str(tSize,2)))+" "+ ;
"Style "+iif(empty(tStyle),["N"],tStyle)
lPrn=set("Printer")
if file(tfl)
set printer on
dt=fOpen(tFl)
if dt>0
do while !feof(dt)
stroka=fgets(dt)
? stroka &par
enddo
=fclose(dt)
set printer off
set printer to
else
=G_Error([Ошибка открытия файла-]+tFl)
endif
else
=G_Error([Файл не найден-]+tFl)
endif
set printer &lPrn
*----------------------------------------------------------
lubov.kazanceva@chel.usi.ru