topic-16467

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Cambiar impresora por defecto
Posted: Wed Aug 26, 2009 02:44 PM

Hola a todos

En el foro consegui una función para cambiar la impresora por defecto por una elegida desde un combox.
La cambia, pero no envia nada quitando las lineas que llevan oDevice, aqui la función

Code (fw): Select all Collapse

      cPrinter := GetProfString( "windows", "device" , "" )
      WriteProfString( "windows", "device", cCbx )
      SysRefresh()
      PrinterInit()
      DeleteDC( oDevice:hDC )
      oDevice:hDC:=GetPrintDefault( GetActiveWindow() )
      SysRefresh()
      WinExec( "NODOSIMP  "+cFilePRN+" 96",0)
      WriteProfString( "windows", "device", cPrinter )

Da error en hDC, no se que lleva el parametro oDevice, como hay que iniciarlo?
Uso el programa NODOSIMP de Ciro, para imprimir archivos de texto. Este programa ha sido compilado con harbour, cómo hace para que respete los tamaños de letras, otros formatos e imprimir imagenes. Es aplicable para FiveWin?

Gracias por la ayuda

Saludos

Adhemar

Saludos,

Adhemar C.

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Cambiar impresora por defecto
Posted: Wed Aug 26, 2009 03:48 PM

Solucionada la parte de colocar la impresora por defecto.

Code (fw): Select all Collapse

     cPrinter := GetProfString( "windows", "device" , "" )
      WriteProfString( "windows", "device", cCbx +",winspool,Ne0:")  //Le aumente para que ponga por defecto
      WinExec( "NODOSIMP  "+cFilePRN+" 96",0)
      WriteProfString( "windows", "device", cPrinter )

Queda pendiente de como hacer lo que hace NODOSIMP

Gracias

Saludos

Adhemar

Saludos,

Adhemar C.

FiveTech Support Forums

Continue the discussion