topic-14051

Posts: 133

Joined: Fri Nov 30, 2007 11:34 AM

Imprimir documento en dos impresoras
Posted: Mon Dec 22, 2008 06:14 PM

Buenas tardes a todos los componentes del foro.

Necesito imprimir una factura en dos impresoras diferentes. A saber, en una impresora de red y en una impresora virtual (genera un documento .PDF).

En principio se puede hacer genrando dos veces la factura y cambiando la impresora. La pregunta es ¿Se puede imprimir dos veces el mismo objeto oPrn? ¿Como hacerlo?

Un saludo a todos y Feliz Navidad desde Zaragoza (España)

Saludos. Fernando

Willi Quintana

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Imprimir documento en dos impresoras
Posted: Tue Dec 23, 2008 12:01 PM

Holas.

.......
oPrn:=TDosPrn():New(nPuerto)
oPrn:StartPage() //
...
..}
nPosH := 1
FOR nCont := 1 TO nCopias
oPrn:Say(nPosH, nPosV, aDatCli[2])
...
..
.
NEXT
...
..
.

fergonm

Posts: 133

Joined: Fri Nov 30, 2007 11:34 AM

Imprimir documento en dos impresoras
Posted: Tue Dec 23, 2008 04:42 PM

Willi Quintana wrote:Holas.

.......
oPrn:=TDosPrn():New(nPuerto)
oPrn:StartPage() //
...
..}
nPosH := 1
FOR nCont := 1 TO nCopias
oPrn:Say(nPosH, nPosV, aDatCli[2])
...
..
.
NEXT
...
..
.

Wili.

Gracias por contestar. En principio creo que no se ha comprendido la cuestión.

Necesito imprimir un documento en una impresora en red y archivarlo , en formato PDF en el disco duro.

Saludos. Fernando

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Imprimir documento en dos impresoras
Posted: Tue Dec 23, 2008 11:30 PM

Yo he hecho algo parecido, pero con ficheros EMF.
Revisa el siguiente post, quizas te pueda orientar en algo.

http://forums.fivetechsoft.com/viewtopi ... +recuperar

Saludos.
FranciscoA

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

fergonm

Posts: 133

Joined: Fri Nov 30, 2007 11:34 AM

Imprimir documento en dos impresoras
Posted: Wed Dec 24, 2008 08:12 AM

FranciscoA wrote:Yo he hecho algo parecido, pero con ficheros EMF.
Revisa el siguiente post, quizas te pueda orientar en algo.

http://forums.fivetechsoft.com/viewtopi ... +recuperar

Saludos.
FranciscoA

Gracias Francisco. En realidad para guardar el fichero PDF no tengo problemas, ya que como indico en anteriores comunicaciones el programa de conversión funciona como una ompresora virtual, por lo tanto al seleccionar la impresora PDF, aparece la pantalla de guardar. Incluso en nombre lo tengo resuelto, con lo cual sólo debo aceptar. Por lo tanto mi pregunta es muchísimo mas simple.

Un cordial saludo y Feliz Navidad.

Saludos. Fernando

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Imprimir documento en dos impresoras
Posted: Wed Dec 24, 2008 12:33 PM

Prueba con esta funcion de mcn

Yo la utilizo desde el Preview, solo elijo la impresora y listo

debes adaptarla a tu aplicacion con algun ciclo, etc.

Code: Select all Collapse

parametros
  oDevice == > objeto printer
  cCbx   ==> nombre de la impresora

el nombre de la impresora lo puedes obtener de aGetPrinters() que devuelve un arreglo con todas las impresoras del sistema

// función para cambiar la impresora desde previo mcn valdenebro
//------------------------------------------------------------------------
func f_CamImpre (oDevice, cCbx )
local cPrinter

cPrinter := GetProfString( "windows", "device" , "" )
WriteProfString( "windows", "device", cCbx )
SysRefresh()
PrinterInit()

DeleteDC( oDevice:hDC ) // 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

Espero que te sirva

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

FiveTech Support Forums

Continue the discussion