FiveTech Software tech support forums

Hello , Making the conversion from a big FWH aplication from FWH1303 to FWH1402 , i have problems withy 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 ...

... gracias amigos. Solucionado con un poco de todos. Cambie lo que dice karinha y ademas hice.. claImpreAnterior := PrnGetName() nImprePDF:= AScan(aPrinters, "PDF") cLaImpre :=aPrinters[nImprePDF] cLaImpre := xTrim(cLaImpre) (ltrim+rTrim) SetPrintDefault( cLaImpre ) Saludos y gracias.

Incluso seria de utilidad que al iniciar el programa verifiques si tu impresora PDF esta instalada

aPrinters:=AgetPrinters()

Para obtener la lista de impresoras configuradas y luego con ASCAN buscas la presencia de la impresora que requieras...

... them in branches where GetProfStr() does not look for, its necesary to modify so that also looks for, there is not a function that many we used is aPrinters, but works either very well, I have not proven it in Windows Vista because not it use, that could be a track of your problem. :cry: //-------------------------------------------------------------------//STATIC ...

... Para obtener las impresoras instaladas puedes usar la funcion aGetPrinters(), que devuelve un array con las mismas. Syntax: aGetPrinters() --> aPrinters Un saludo, Ernesto. Y es cierto que hoy al "buscar" distintos temas en los foros (SQL, xbrowse, etc.) aparecen muy pocos temas.

... oMenuTwoPages, oMenuUnZoom, oMenuOnePage DATA cResFile DATA aFactor, nPage, nZFactor DATA lTwoPages, lZoom, lExit DATA cPageNum // Esteban DATA aPrinters DATA cPrinter DATA cOldPrinter // Esteban CLASSDATA oWndMain METHOD New( oDevice ) METHOD Activate() METHOD BuildButtonBar() METHOD BuildWindow() ...

Hello Stefan, hello Otto,

even with 'aPrinters[nX][1]' the return value is always 4096!

... the following problem with the FiveWin printer commands. I want to print to a specified printer. To find the correct name i called the function aPrinters := aGetPrinters(). Here the content of aPrinter: --------------------------- Microsoft XPS Document Writer Microsoft Office Document Image ...

Ola Anser
Seguem varias funçoes sobre este assunto
? GetDefaultPrinter(), PrnGetName(),PrnGetDrive() ,PrnGetOrientation() ,AGetPrinters()
aPrinters()

aImpr := GetPrinters(.T.)
For nX := 1 To Len(aImpr)
? aImpr[nX][1],aImpr[nX][2]
Next

... PRINTER_ENUM_NAME 8 #define PRINTER_ENUM_REMOTE 10 #define PRINTER_ENUM_SHARED 20 #define PRINTER_ENUM_NETWORK 40 FUNCTION Main() LOCAL aPrinters, nNecesitados, nRetornados TotPrinters(PRINTER_ENUM_NAME,NIL,1,@aPrinters,0,@nNecesitados,@nRetornados) MsgInfo( aPrinters) ...

DLL32 FUNCTION EnumPrinters( Flags AS DWORD, Name AS LPSTR, Level AS DWORD, @ aPrinters AS BYTE, cbBuf AS DWORD, @ pcbNeeded AS DWORD, @ pcReturned AS DWORD) ; AS LONG PASCAL FROM "EnumPrinters" LIB "winspool.drv" En la definicion DLL32 no tienes que poner las ...

DLL32 FUNCTION EnumPrinters( Flags AS DWORD, Name AS LPSTR, Level AS DWORD, @ aPrinters AS BYTE, cbBuf AS DWORD, @ pcbNeeded AS DWORD, @ pcReturned AS DWORD) ; AS LONG PASCAL FROM "EnumPrinters" LIB "winspool.drv" En la definicion DLL32 no tienes que poner las ...

[code] //--------------------------- Function AGetPrinters() //--------------------------- Local aPrinters, cText, cToken := Chr(15) // Passing no second param or passing ZERO to GetProfStr() // grabs entire section in .ini file. Each printer is separated by a // null char ...

... for. For the list of installed printers problem, try this function. Do notice that the function returns an array: Function GetPrinters() Local aPrinters := {}, cText, cToken := Chr(15) // Passing no second param or passing ZERO to GetProfString() // grabs entire section in .ini file. Each printer ...