FiveTech Software tech support forums

... aDatos :={}
LOCAL aRect, cDirPadre:=GetPVProfString("Config","PathFoto",".",cIniFile)
LOCAL oDlg,oLb, oLbfg,oChild
LOCAL oCbx, oGet
local lPr := .f.
LOCAL iLd := .f.

cRefe:=Siniestr->NumControl
CLOSE DATABASES
SELE 1
USE Siniestr NEW
SELE 2
USE Polizas NEW
SELE 3
USE ...

Hi Antonio

I am happily generating forms as postscript files and can print them and delete them via lpr. I would like to specify the printer that they are sent to. lpr supports this via the -P option. I wanted to get a list of printers bur GetPrinters() didn't seem to exist. I got a linker error ...

Hi Antonio

I am using WinExec() to print postscript files, with calls like this:

WinExec( "lpr", <postscript-file> )

That works fine. But I don't want to clutter up computers with the postscript files. So the logical thing is to erase them. But I am assuming that WinExec() operates asynchronously ...

... without Fivelinux.

screen text mode only, not GUI

function main()
local cFilePrint := "report.prn"

set console off
set printer on
set printer to (cFilePrint)
?"Hello xProgrammer"
?"I'm Fafi"
?"Thank's for help"
set console on
set printer off
__run("lpr "+cFilePrint)
return nil


regards
Fafi

... BUTTON ID 25 OF oDlg ACTION (ILd:=.t., oDlg:Refresh())
REDEFINE BUTTON ID 26 OF oDlg ACTION oDlg:End()
REDEFINE BUTTON ID 27 OF oDlg ACTION (lPr:=.t., oDlg:End())
ACTIVATE DIALOG oDlg CENTERED
ERASE TEMPORAL.NTX
CLOSE DATABASES
/////////////////////////////////////
Intento que tras ...

... BUTTON ID 25 OF oDlg ACTION (ILd:=.t., oDlg:Refresh())
REDEFINE BUTTON ID 26 OF oDlg ACTION oDlg:End()
REDEFINE BUTTON ID 27 OF oDlg ACTION (lPr:=.t., oDlg:End())
ACTIVATE DIALOG oDlg CENTERED
ERASE TEMPORAL.NTX
CLOSE DATABASES
/////////////////////////////////////
Intento que tras ...