FiveTech Support Forums

Ola Amigos. ¿Cómo hago para cambiar la impresora con lo Crystal Reports? El ser ése con el TCRW solo él imprime en el estándar
de la impresora.

Ola Amigos. Como faço para trocar a impressora com o Crystal Reports.? Sendo que com a TCRW só imprime na impressora padrão.

kbelo

I use

  PrinterSetup()
  cPrinter := PrnGetName()
  cDriver  := PrnGetDrive()
  cPort   := PrnGetPort()
  oCrw:SetPrinter32( cDriver, cPrinter, cPort)

Method SetPrinter32( cDriver, cPrinter, cPort) CLASS Crystal32
LOCAL nRet
LOCAL cFarProc := "PESelectPrinter"

cFarProc := GetProcAddress( ::hDll, cFarProc,.T.,_INT,LONG,LPSTR ,LPSTR,LPSTR,LONG)
nRet := CallDll( cFarProc, ::nJobHandle, cDriver , cPrinter , cPort ,0 )

RETURN self

Regards Maurizio