Alguien tuvo problemas desde Windows 7 con esta sentencia
Code: Select all | Expand
oPrn:=PrintBegin(NomArc,.f., ,"PDFCreator",.T.)
Cuando se ejecuta sale directamente a la impresora y NO generar el PDF
gracias
Daivd
Code: Select all | Expand
oPrn:=PrintBegin(NomArc,.f., ,"PDFCreator",.T.)
Code: Select all | Expand
function SetPrintDefault( cModel )
local cDriver := StrToken( GetProfString( "Devices", cModel, "" ), 1, "," )
local cPort := StrToken( GetProfString( "Devices", cModel, "" ), 2, "," )
WriteProfString( "Windows", "Device", cModel + "," + cDriver + "," + cPort )
return nil
davidObarrio wrote:Alguien tuvo problemas desde Windows 7 con esta sentenciaCode: Select all | Expand
oPrn:=PrintBegin(NomArc,.f., ,"PDFCreator",.T.)
Code: Select all | Expand
SetPrintDefault( "PDFCreator" )