FiveTech Software tech support forums

... "device" , "" ) WriteProfString( "windows", "device",cNuevaImpresora) SysRefresh() PrinterInit() msginfo(PrnGetName()) WriteProfString( "windows", "device",cImpresoraAnterior) Tambien funciona con: cImpresoraAnterior:=PrnGetName() SetPrintDefault(cNuevaImpresora) ...

Karinha

Funciono

Muchas Gracias.

Buenas noches si tengo el siguiente programa . . cImpresoraAnterior:=PrnGetName() SetPrintDefault(cNuevaImpresora) msginfo(PrnGetName()) . . Windows si establece a cNuevaImpresora como la impresora por defautl, pero mi aplicacion FWH no ( PrnGetName() sigue ...

Hola, Intente asi: oPreview:oDevice:GetModel() oPrinter:GetModel() ó PrnGetName()    @ 7, 500 SAY ::oPage PROMPT "Imprimir na Impressora: "+PrnGetName() ;            SIZE 220, 15 PIXEL OF ::oBar FONT ::oFont                        ;      ...

... VAT nr ")+AllTrim(FVAT1->NR_M)+cOPIS Local lPREV:=.F. oPRN:=PrintBegin(cTYTWYDRUKU,.F.,lPREV,IIF(cPRINTER<>NIL,cPRINTER,PrnGetName())) Page FV_CIENIE(@oPRN) FV_NAGLOWEK(@oPRN,cOPIS) //FV_KRESKI(@oPRN) FV_ZAWARTOSC(@oPRN) EndPage EndPrint Return Function FV_NAGLOWEK(oPRN,cOPIS) ...

... cerramos el puerto que se abrio al principio if (::hDC # -1) .and. ! fClose(::hDC) ::nLastError := fError() endif cOutPort := ::cPort cPrnName := PrnGetName() lPreview := ::lPreview nModo := iif (::lModoGraf, 2, 1) nLinP := ::nLength DEFINE DIALOG oDlg TITLE "Impresion" ; FROM 129, 178 ...

James Bott wrote:PrnGetName() returns the name of the current printer.

I don't know how you can find the port

Code: Select all  Expand view

PrnGetPort()

EMG

Hunter,

PrinterSetup() returns the hDC of the selected printer if Accept is pressed, or zero if cancel is pressed.

PrnGetName() returns the name of the current printer.

I don't know how you can find the port as I have never needed to know this. Why do you?

Regards,
James

Buenos Días

No estoy haciendo las cosas bien. Para la función SetPrintDefault() debeo utilizar el nombre de la impresora.

¿Como obtengo el nombre?. Con el nombre que obtengo con PrnGetName(), no cambia de impresora.

Un saludo. Fernando

Thanks for the reply guys :) @Richard: I'm not using any ini at the moment. @James: Oops, sorry I missed your Oct 6th's post. The hDC is 0 only in my module James. It definitely isn't 0 when running samples\testprn2.prg. I even compile and linked in libs as per how I do with my problematic module ye...

Just tried to substitute my ud_PrnGetName() with GetDefaultPrinter(). Seems GetDefaultPrinter() returns a numeric value instead of a printer name. That kinda makes it hard for me to know which printer was actually selected. It's unfortunate that my office doesn't have a Win7 64-bit. Makes it difficu...

... PokeByte() PokeWord() PolyPolygon() PostMessage() PostQuitMessage() PrintBegin() PrinterEsc() PrinterSetup() PrnBinSource() PrnDuplex() PrnGetName() PrnGetOrientation() PrnGetPort() PrnGetSize() PrnLandscape() PrnOffset() PrnPortrait() PrnSetCopies() PrnSetPage() PrnSetSize() RaConst() ...

... := oDevice ::nPage := 1 ::nZFactor := 1 ::lTwoPages := .F. ::lZoom := .F. ::lExit := .F. // Esteban ::aPrinters := aGetPrinters() ::cPrinter := PrnGetName() ::cOldPrinter := ::cPrinter // Esteban ::BuildWindow() return Self //----------------------------------------------------------------------------// ...

... oWndMain:oBar:aControls[ 1 ]:l97Look local lExit := .F. local oHand, oImageList, oReBar // , cPageNum local aImpre := aGetPrinters(), oCbx, cCbx:=PrnGetName(), ; cImpre := cCbx // mcn valdenebro *DEFAULT nBloqueo := .F. #ifdef __CLIPPER__ cResFile := "Preview.dll" #else if ! IsWin64() ...