FiveTech Software tech support forums

Paco,

Prueba con GetDefaultPrinter():

https://docs.microsoft.com/en-us/windows/win32/printdocs/getdefaultprinter

Gracias Karinha, pero no me vale.

Precisamente mi insterés es buscar una alternativa a GetPrintDefault() que en RDP va muy lento

Intenta asi: FUNCTION DefaultPrinter()   LOCAL nPrn, nRet   // Abre a tela para a seleção da impressora   /*   GetPrintDC( GetActiveWindow() )   // Coloca a impressora selecionada como Default do Windows   SetDefaultPrinter( PRNGETN...

Hola a todos. Uso Terminal Server. Detecté que GetPrintDefault() es muy lento en TS. Así que asumí que todas las impresoras están "preparadas". Quizá el problema es que TS "se trae" muchas impresoras, pero lo cierto es que es ...

Antonio, aquí la segunda parte: Error: Unresolved external '_HB_FUN_DRAWTHEMED' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_GETDLGBASEUNITS' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_CDLG2CHR' referenced from P...

Hua, Thanks Stefan. I can't find GetDefaultPrinter() in the source but I did find GetPrintDefault(). I assume that's the one you meant? No, I meant GetDefaultPrinter(), it exists in xHarbour, I don´t know if it exists in harbour, too. There are two functions I´m ...

Thanks Stefan. I can't find GetDefaultPrinter() in the source but I did find GetPrintDefault(). I assume that's the one you meant? Unfortunately, it doesn't address the logic that I want to implement. See, as a feature, in our program we allow user to select a ...

... , "" ) WriteProfString( "windows", "device", cOption ) SysRefresh() PrinterInit() ::oDevice:hDC := GetPrintDefault( GetActiveWindow() ) SysRefresh() WriteProfString( "windows", "device", cPrinter ) RETURN nil //----------------------------------------------------------------------------// ...

... ----> lo tengo resuelto con ALLTRIM(GetEnv("LOGONSERVER"))+'\' Ahora solo me falta el nombre de la impresora compartida. Probé con GetPrintDefault( GetActiveWindow() ), pero no hay manera. ¿ Es posible ? Mil gracias LORENZO.

... Sugestion by Enrico M. Giordano // Insert here the function to create the report // oWnd:End() // George - To close current preview oDevice:hDC := GetPrintDefault( GetActiveWindow() ) SysRefresh() WriteProfString( "windows", "device", cPrinter ) RETURN nil

...      oPrn:say(1,1,'empenzando a imprimir...')      ...     ENDIF ¿La variable vRuta se podría depurar con vRuta:=GetPrintDefault( GetActiveWindow() ) b) NO compartida en RED ¿ El código sería el mismo que en la opción anterior ? A la espera de respuestas, saluda ...

... PRINTERNAME ) where PRINTERNAME is the name of the printer to use as acquired from the PRINTERSETUP() function as follows: PRINTERSETUP() hDC := GetPrintDefault( GetActiveWindow() ) PRINTERNAME := PRNGETNAME() If, however in the vista environment, I call Tprinter:new with the 2cnd parameter to ...

FranciscoA wrote:Para obter o nome da impressora padrão, acho que você pode usar GetPrintDefault( GetActiveWindow() )
Saudações

Isto eu sei.

Quero nome do compartilhamento!!

Printer default -> \\computador\epson lx-300
Share name -> \\computador\epson <<<
Port Name -> LPT1

Para obter o nome da impressora padrão, acho que você pode usar GetPrintDefault( GetActiveWindow() )
Saudações

... SysRefresh() //iniciamos impresora PrinterInit() DeleteDC( oDevice:hDC ) // Sugestion by Enrico M. Giordano // temporal printer oDevice:hDC := GetPrintDefault( GetActiveWindow() ) SysRefresh() // default printer again WriteProfString( "windows", "device", cPrinter ) RETURN ...