FiveTech Software tech support forums

... #ifndef HB_LONGLONG #define HB_LONGLONG long #define hb_storvnll hb_stornl #endif agora o erro eh outro ao clicar em start DLL FUNCTION Llama( cModel AS LPSTR, cPrompt AS LPSTR, pFunc AS PTR ) AS VOID PASCAL LIB "llama64.dll" https://uploaddeimagens.com.br/images/004/700/688/original/erro.png?1703921284

Dear Jimmy, many thanks Please try this using 64 bits only: HMG_CallDLL( "llama64.dll", HB_DYN_CTYPE_VOID, "Llama", cModel, cPrompt, CallBack( { | cStr | AI_FORM.oAnswer.SetFocus(), AI_FORM.oAnswer.Value += cStr } ) ) and add this at the bottom: #pragma BEGINDUMP #include ...

Just to update. Enrico's post prompts me to eventually inspect var cModel value in my sub-class of TPrinter. To my surprise, it wasn't just a string of printer name but includes the driver and port too. In old PrintBegin(), the code at the end was      ...  ...

... FWH1912   if lUser      ::hDC := GetPrintDC( GetActiveWindow(), lSelection, PrnGetPagNums() )      if ::hDC != 0         cModel = ::GetModel() + "," + ::GetDriver() + "," + ::GetPort()      endif   elseif cModel == nil      ::hDC ...

... was the dimension of the paper but it is the printable area of the page. All the vars refer to the printable area except for GetPhySize(). oPrn:cModel: HP DeskJet 420,winspool,LPT1: oPrn:nHorzRes(): 2400 [2400/300 dpi = 8 inches] oPrn:nVertRes(): 3025 [3025/300 dpi = 10.1 inches] oPrn:nLogPixelx(): ...

Hola, En source/printer.prg hay que usar FWStrings en : METHOD New( cDocument, lUser, lPreview, cModel, lModal, lSelection, cFile ) CLASS TPrinter MsgStop( "There are no printers installed!" + CRLF + ; "Please exit this application and install a printer." ...

I confirm the problem.
Because of this I didn't switch to 1402. Still I am using 1309.

... , probably all the methods which rebuild the printobject METHOD Rebuild() CLASS TPrinter   # ifdef FRANKDEMONT   local cModel := ::cModel      # endif............./* following modifications after fw1308 are commented out subject to further review 2014-02-15  ...

... the command : PRINT oPrn NAME cTitle TO aPrinters[nPrint] // Checked : PDFCREATOR , printer is defined in windows DBG oPrn oPrn Shows as expected cModel (PDFCreator) and a value for hDc BUT THE OUTPUT : DEFAULT WINDOWS PRINTER What has changed ? Frank

Angel,

Puedes hacer MsgInfo( cModel ) y ver que valor te aparece ? gracias

... comprobar y así lo tengo. De hecho lo rectifiqué en base al hilo que menciono en el anterior mensaje. METHOD New( cDocument, lUser, lPreview, cModel, lModal, lSelection, cFile ) CLASS TPrinter   local aOffset   local cPrinter   DEFAULT cDocument  := "FiveWin Report" ,;       lUser ...

... impresora por defecto mediante la funcion de FW SetPrintDefault() Sets the specified printer as the default printer. Syntax: SetPrintDefault( <cModel> ) --> nil Parameters: <cModel> The name of the new default printer. Returns: Nil Source Code: SOURCE\CLASSES\PRINTER.PRG Repitiendo ...

Oscar, In Class TPrinter, function PrintBegin() we search for the printer based on the provided cModel name:      if ( nScan := Ascan( aPrn, { | v | Upper( xModel ) == Upper( v ) } ) ) == 0         nScan = Ascan( aPrn, { ...

Default Printer in Windows = PDF reDirect V2 Selected Printer by User = \\OASYS4\Samsung SCX-4200 Series After ::hDC = PrinterDcFromName( , cModel, ) MsgInfo( cModel ) = \\OASYS4\Samsung SCX-4200 Series MsgInfo( GetProfString("Device") ) = CutePDF Writer Only the first time after the ...

What value has cModel ?

And what do you get for GetProfString( "Devices" ) ?