Amigos,
Boa tarde!
Estou com um problema para gerar PDF a partir de um xml de Nota Fiscal Eletrônica com a BioPDF (Impressora Virtual), sempre utilizei esta Função em xHarbour/Console e MiniGUI Ext./Harbour, sempre funcionou bem, porém, agora com a atualização da MinGUI Ext., verifiquei que a HBOLE.LIB foi descartada e fiz uma atualização de minha função para manter a compatibilidade com a MiniGUI. Mas esta causando erro de Método não Exportado na PrinterName. Segue o Código:
#define SET_PROGID "biopdf.PDFSettings"
#define UTIL_PROGID "biopdf.PDFUtil"
Function ConfigPDF(cArquivoPDF)
LOCAL prtidx,sPrinterName,oSettings,oUtil,cArqPDF
LOCAL lOk
If ( oUtil := win_oleCreateObject( UTIL_PROGID ) ) != NIL
sPrinterName = oUtil:defaultprintername
// Configuração do documento a ser impressão em PDF
If ( oSettings = win_oleCreateObject(SET_PROGID) ) != NIL
oSettings:PrinterName( sPrinterName )
oSettings:setValue("Output" , cArquivoPDF )
oSettings:setValue("ConfirmOverwrite" , "no" )
oSettings:setValue("ShowSaveAS" , "never" )
oSettings:setValue("ShowSettings" , "never" )
oSettings:setValue("ShowPDF" , "no" )
oSettings:setValue("RememberLastFileName" , "no" )
oSettings:setValue("RememberLastFolderName", "no" )
oSettings:WriteSettings(.T.)
Else
MsgInfo("Erro na configuração do PDF","ATENÇÃO")
Return NIL
Endif
Else
MsgInfo("Erro ao gerar PDF","ATENÇÃO")
Return NIL
Endif
Return nil
Já tentei de tudo, mas não estou conseguindo resolver, será que alguém poderia me ajudar?
Obrigado desde já pela atenção meus amigos!