Imprimir Campo Memo FPT AYUDA URGENTE Para Cesar Gomez

[remtec]

Amigos

Muy buen dia.

Necesito Urgentemente poder Imprimir la información que he guardado en un Campo Memo FPT, esto fue almacenado con formato " richedit5 ", es texto enriquecido.

Lo que requiero es poder realizar una impresión con un formato como el siguiente:

Folio de Ingreso: 999999999 Fecha de Informe: xx/xx/xxxx

Dr. Solicitante: xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Nombre: xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Rut: xxxxxxxxxxxxxxxxxxx Edad: 999

Nombre del Examen: xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Nombre del Examen: xxxxxxxxxxxxxxxxxxxxxx

**** Aqui tendria que Imprimir el Contenido que tengo guardado en el Campo FPT.

.......
......
......
......

Medico Radiologo: xxxxxxxxxxxxxxxxxxxxxxxxxxx

He buscado, pero no he encontrado nada claro, lo correcto es que si puedo guardar este Información en este tipo de Formato, tambien exista la forma de imprimirlo.

En espera de su ayuda, les saluda muy atte.

Antonio.

[pedroluis]

/*
Hola Antonio !
Tengo un programa de historias clínicas y turnos e imprimo la historia clínica de la siguiente manera:
FUNCTION HC0100LO0() --> Pido el ingreso de nombre del paciente
FUNCTION HC0100LI10() --> Imprimo los campos memo 1->texto (historia clínica) y 1->medicam (medicamentos)
FUNCTION T01001() --> Imprime el encabezamiento, o sea, los datos del paciente.

Espero te sirva
Saludos !
Pedro Lavallén */


*--------------------------------------
FUNCTION HC0100LI0(oLbx)
*--------------------------------------
local oDlg
local lGoOn,oBtn
local oReport
public ownom
public wnom:=spac(20)
public wnom:=1->nombre
default lGoOn:=.f.
set cursor on
DEFINE DIALOG oDlg RESOURCE "HC0100LI1" FONT m->oFontBrw
sele 1
set order to 1
REDEFINE GET ownom VAR wnom ID 101 OF oDlg picture "@!"
REDEFINE BTNBMP oBtn ID 103 OF oDlg RESOURCE "yes" ; // SI
ACTION (lGoOn:=.t.,oLbx:refresh(),oDlg:End(),olbx:setfocus()) ;
TOOLTIP "Correcto" BORDER
REDEFINE BTNBMP oBtn ID 104 OF oDlg RESOURCE "no2" ; // NO
ACTION (lGoOn:=.f.,1->(DbGotop()),oLbx:Refresh(),oDlg:End(),;
olbx:setfocus()) ;
TOOLTIP "Cancelar" BORDER

ACTIVATE DIALOG oDlg CENTERED
if lGoOn
SysRefresh()
sele 1
set order to 1
go top
seek alltrim(wnom)
if eof()
msgalert("Inexistente...")
go top
return NIL
endif
HC0100LI10()
endif
olbx:refresh()
return nil

*--------------------------------------
FUNCTION HC0100LI10()
*--------------------------------------
local nRecno
public oReport
public oLis,l,nsalto,ncolum,xhoja,oFont,oFont1,xmarca
public texto1
public texto2
PRINTER oLis PREVIEW NAME "H.C."
DEFINE FONT oFont NAME "arial" SIZE 0,-10 OF olis
DEFINE FONT oFont1 NAME "arial" SIZE 0,-12 bold OF olis
DEFINE PEN oPen1 WIDTH 1
nsalto:=olis:nVertRes() / 65 // Renglones
ncolum:=olis:nHorzRes() / 80 // Columnas
xhoja:=0
xmarca:=0
PAGE
T01001()
texto1:=1->texto
line_cnt:=mlcount(texto1,105)
curr_line:=1
do while curr_line<=line_cnt
if l>nsalto*60
ENDPAGE
PAGE
xmarca:=0
T01001()
endif
print_line:=memoline(texto1,105,curr_line)
olis:say(l,ncolum * 5,print_line,oFont)
curr_line:=curr_line+1
l:=l+nsalto
enddo
l:=l+nsalto
l:=l+nsalto
texto2:=1->medicam
line_cnt:=mlcount(texto2,105)
curr_line:=1
do while curr_line<=line_cnt
if l>nsalto*60
ENDPAGE
PAGE
xmarca:=0
T01001()
endif
print_line:=memoline(texto2,105,curr_line)
oLis:say(l,ncolum * 5,print_line,oFont)
curr_line:=curr_line+1
l:=l+nsalto
enddo
ENDPAGE
ENDPRINT
oFont:End()
oFont1:End()
set order to 1
return nil

*---------------------------------------
FUNCTION T01001()
*---------------------------------------
l:=nsalto
oLis:line(l,ncolum*1,l,ncolum*80,oPen1)
l:=l+(nsalto/2)
oLis:say(l,ncolum * 5 ,"HISTORIA CLINICA DE: "+alltrim(wnom),oFont1)
l:=l+(nsalto/2)
l:=l+nsalto
oLis:line(l,ncolum*1,l,ncolum*80,oPen1)
l:=l+nsalto
oLis:say(l,ncolum * 70 ,dtoc(date()),oFont)
l:=l+nsalto
xhoja:=xhoja+1
oLis:say(l,ncolum * 70 ,("Hoja "+str(xhoja,2)),oFont)
l:=l+nsalto
oLis:say(l,ncolum * 5 ,"NRO.AFILIADO: "+alltrim(str(1->afiliado,14)),oFont)
l:=l+nsalto
oLis:say(l,ncolum * 5 ,"EDAD: "+str(1->edad,3),oFont)
l:=l+nsalto
oLis:say(l,ncolum * 5 ,"DOMICILIO: "+alltrim(1->domicilio),oFont)
l:=l+nsalto
oLis:say(l,ncolum * 5 ,"OCUPACION: "+1->ocupacion,oFont)
l:=l+nsalto
oLis:say(l,ncolum * 5 ,"OBRA SOCIAL: "+alltrim(2->nombre)+;
" - ("+strzero(1->num_obra,3)+")",oFont)
l:=l+nsalto
oLis:say(l,ncolum * 5 ,"FECHA INGRESO: "+dtoc(1->fecha),oFont)
l:=l+(nsalto*2)
RETURN nil

[remtec]

Hola Pedro

Como estas, muchas gracias por responder.

Me da mucha alegria saber que no soy el unicio con un tema como este, mas aun del area Salud.

Estoy muy agradecido por tu ayuda y tiempo dedicado.

Lo probare y vere si logro imprimir en las condiciones que necesito, te tendre informado.

Me gustaria saber si tu codigo considera texto enriquecido, ya que es muy diferente al texto simple, uso "richedit5 " para guardarlo y recuperarlo?.


Muchos Saludos.
Antonio

[remtec]

Hola Pedro

Probe tu codigo, pero para mi caso no funciona, me temia, ya que como te comente esta guardado como texto enriquecido, por lo que el texto se imprime como fue guardado.

Espero algun comentario, para solucionar mi problema.

Saludos
Antonio

[remtec]

Amigos

Me costo mucho lograr implementar la actualización de Texto con " RICHEDIT5 " para Campo Memo FPT, ya que tenia que guardarlo con contenido enriquecido, pero no entiendo que exista la forma de guardarlo y no cuente claramente con el Codigo para Imprimirlo, de la forma que describo arriba, he leido que existe "REPrintBox5", pero no se si puedo cumplir mi requerimiento, ya que lo que muestra, no es lo que necesito.

Hoy si que estoy en problemas, si no logro resolver este requerimiento.

En espera de Urgente ayuda, les saluda muy atte.

Antonio.

[cmsoft]

Una opcion sería abrirlo con Word e imprimirlo (incluso podrias hacer una vista previa)

Code: Select all  Expand view  RUN

...
cText := mitabla->micampomemo // Reemplaza la tabla y tu campo memo
MEMOWRIT('documen.RTF',cText)
cFichero:=hb_curDrive()+":\"+CurDir()+"\Documen.RTF"
If FILE(cFichero)
     oWord := TOleAuto():New( "Word.Application" )
     oWord:Documents:Open(cFichero)
     oWord:Visible     := .f.
     oWord:WindowState :=  // Maximize
     oWord:Document.printOut() //Esto no se si es asi.
     oWord:Documents:Close()
 EndIf

Puedes consultar la informacion del objeto word.aplication en https://docs.microsoft.com/es-es/office ... rview/word
Espero que te sirva.

[remtec]

Hola CMSOFT.

Muchas gracias por responder, siempre presente.

Probé tu código, no me funciona, incluso modifique para que pueda visualizar con Word, pero no carga el archivo.

En mi caso, la idea es al dar boton Imprimir y que este contenido del campo memo, se imprima directamente a la impresora, con las características que describo arriba.

Estuve viendo un Link donde participa Cristobal Navarro y Marcelo Roggeri, sobre la necesita que tenia Marcelo de imprimir contenido del campo memo con texto enriquecido, pero no queda claro si realmente logro imprimirlo.

Es lamentable que cueste tanto encontrar algunas soluciones, para nuestras necesidades, mas aun como en este caso, se puede guardar un texto con ciertas características, acorde a las necesidades de estos tiempos y no tengamos clara la forma de poder imprimirlo, de que sirve guardarlo si no se puede imprimir facilmente para el usuario, nosotros realizamos programación para usuarios normales, no para expertos, es terrible el tiempo que se pierde en tratar de encontrar una solución, y quizas se puede llegar a la lamentable conclusión que ya debemos migrar a otra herramienta. Somos tantos en el foro, pero creo que ya muchos, están en otra, recuerdo aquellos años donde la solución estaba en tiempos cercanos a una hora, hoy pueden ser días o quizas nunca se logre, como se demuestra en muchos link.

Lamento hacer esta expresión publica, pero hoy estoy en un gran problema, exigencias, tiempo de respuesta, imagen, son varias las condicionantes involucradas.

Este es el Link que hablo de la necesidad de Marcelo Roggeri:

http://fivetechsupport.com/forums/viewt ... 5c#p198190


Saludos
Antonio

[cnavarro]

.../...
Es lamentable que cueste tanto encontrar algunas soluciones, para nuestras necesidades, mas aun como en este caso, se puede guardar un texto con ciertas características, acorde a las necesidades de estos tiempos y no tengamos clara la forma de poder imprimirlo, de que sirve guardarlo si no se puede imprimir facilmente para el usuario, nosotros realizamos programación para usuarios normales, no para expertos, es terrible el tiempo que se pierde en tratar de encontrar una solución, y quizas se puede llegar a la lamentable conclusión que ya debemos migrar a otra herramienta. Somos tantos en el foro, pero creo que ya muchos, están en otra, recuerdo aquellos años donde la solución estaba en tiempos cercanos a una hora, hoy pueden ser días o quizas nunca se logre, como se demuestra en muchos link.

Lamento hacer esta expresión publica, pero hoy estoy en un gran problema, exigencias, tiempo de respuesta, imagen, son varias las condicionantes involucradas.

Saludos
Antonio

Si estudia la clase, verá que existen tres métodos, además de otras alternativas de exportación, para realizar esta acción, una de ellas se hace referencia en el link que ha puesto: PRINT, PRINTBOX, PREVIEW.
En cuanto a su apreciación, tenemos la costumbre de ofrecer un pequeño ejemplo autocontenido para que los usuarios puedan ofrecer una solución directa y rápida sobre el problema que se plantea.

[cmsoft]

Hola Antonio:
Esta funcion la uso actualmente:

Code: Select all  Expand view  RUN

*************************************************
** Armar documento rtf
*************************************************
PROCEDURE Merge(cDocu,base,lImprime)
LOCAL oWord , oDoc, cText , cDoc
cDoc := hb_CurDrive()+":\"+curdir()+"\Modelos\"+ALLTRIM(cDocu)+".rtf"  //Este es un RTF base, donde despues mezclo con texto de una tabla
IF !FILE(hb_CurDrive()+":\"+curdir()+"\Modelos\"+ALLTRIM(cDocu)+".rtf")
   MsgStop("El archivo base no existe"+chr(10)+cDoc,"Error")
   RETURN  
ENDIF
cText := MEMOREAD(hb_CurDrive()+":\"+curdir()+"\Modelos\"+ALLTRIM(cDocu)+".rtf")
   //Merge
   cText := STRTRAN(ctext,"<historianro>" ,ALLTRIM(STR(base->historianro,10)))
   cText := STRTRAN(ctext,"<actanro>"  ,ALLTRIM(STR(base->actanro,10)))
   cText := STRTRAN(ctext,"<nropaciente>"  ,ALLTRIM(STR(base->nropaciente,5)) )
   cText := STRTRAN(ctext,"<texto>"    ,base->texto)

   memowrit( hb_CurDrive()+":\"+curdir()+"\Impresion\"+ALLTRIM(cDocu)+"Temp"+ALLTRIM(oApp:usuario)+".rtf", cText ) // Aca genero el nuevo documento
   if   (oWord := WinWordObj() ) == nil
        MsgAlert( "MS Word no instalado" ,  "Alerta" )        
        else
        oDoc = oWord:Documents:Open(hb_CurDrive()+":\"+curdir()+"\Impresion\"+ALLTRIM(cDocu)+"Temp"+ALLTRIM(oApp:usuario)+".rtf")
        if oDoc == nil
           MsgAlert("Fallo crear documento, verifique que no este en uso" , "Alerta"  )          
         endif
   endif  
   IF lImprime  
      oDoc:PrintOut()
      oDoc:Close()
   ELSE
      oDoc:Application:Visible := .t.
   ENDIF
RETURN

Tengo una carpeta MODELOS donde tengo los modelos base
Tengo una carpeta IMPRESION donde guarda los rtf modificados
El parametro lImprime me dice si quiero verlo en vista previo o directamente que salga impreso
cDocu es el nombre del documento base que quiero tomar
oApp:usuario es una variable estatica que tiene el nombre del usuario (El documento lo creo con el nombre del usuario)
Espero te sirva

[remtec]

Hola Antonio:
Esta funcion la uso actualmente:

Code: Select all  Expand view  RUN

*************************************************
** Armar documento rtf
*************************************************
PROCEDURE Merge(cDocu,base,lImprime)
LOCAL oWord , oDoc, cText , cDoc
cDoc := hb_CurDrive()+":\"+curdir()+"\Modelos\"+ALLTRIM(cDocu)+".rtf"  //Este es un RTF base, donde despues mezclo con texto de una tabla
IF !FILE(hb_CurDrive()+":\"+curdir()+"\Modelos\"+ALLTRIM(cDocu)+".rtf")
   MsgStop("El archivo base no existe"+chr(10)+cDoc,"Error")
   RETURN  
ENDIF
cText := MEMOREAD(hb_CurDrive()+":\"+curdir()+"\Modelos\"+ALLTRIM(cDocu)+".rtf")
   //Merge
   cText := STRTRAN(ctext,"<historianro>" ,ALLTRIM(STR(base->historianro,10)))
   cText := STRTRAN(ctext,"<actanro>"  ,ALLTRIM(STR(base->actanro,10)))
   cText := STRTRAN(ctext,"<nropaciente>"  ,ALLTRIM(STR(base->nropaciente,5)) )
   cText := STRTRAN(ctext,"<texto>"    ,base->texto)

   memowrit( hb_CurDrive()+":\"+curdir()+"\Impresion\"+ALLTRIM(cDocu)+"Temp"+ALLTRIM(oApp:usuario)+".rtf", cText ) // Aca genero el nuevo documento
   if   (oWord := WinWordObj() ) == nil
        MsgAlert( "MS Word no instalado" ,  "Alerta" )        
        else
        oDoc = oWord:Documents:Open(hb_CurDrive()+":\"+curdir()+"\Impresion\"+ALLTRIM(cDocu)+"Temp"+ALLTRIM(oApp:usuario)+".rtf")
        if oDoc == nil
           MsgAlert("Fallo crear documento, verifique que no este en uso" , "Alerta"  )          
         endif
   endif  
   IF lImprime  
      oDoc:PrintOut()
      oDoc:Close()
   ELSE
      oDoc:Application:Visible := .t.
   ENDIF
RETURN

Tengo una carpeta MODELOS donde tengo los modelos base
Tengo una carpeta IMPRESION donde guarda los rtf modificados
El parametro lImprime me dice si quiero verlo en vista previo o directamente que salga impreso
cDocu es el nombre del documento base que quiero tomar
oApp:usuario es una variable estatica que tiene el nombre del usuario (El documento lo creo con el nombre del usuario)
Espero te sirva

Hola Cesar.

Como estas??

Realmente te pasaste, siempre estoy muy agradecido de tu ayuda, siempre te haces presente, dedicando mucho tiempo y tu experiencia, para ayudar a quienes de verdad la necesitamos y que muchas veces nos encontramos en un tremendo problema, como es mi caso en estos momentos, infinitas gracias por tu bondad.

Quizas muchas veces molesto con mis consultas y problemas, pero hay una realidad, clipperero de siempre, pero no cuento con la destreza y conocimientos, como muchas veces se requiere al usar FiveWin, pero a pesar de esto, sigo siendo fiel a esta herramienta. Leer o entender una Clase muchas veces me es dificil y mucho mas aplicarla.

Nuevamente muy agradecido, revisare tu codigo y lo aplicare.

Muchos Saludos.
Antonio

[remtec]

Hola Cesar

He probado tu código, se crea el archivo RTF, carga el Word, pero no muestra su contenido, se abre detras de la aplicación.

Si el mismo archivo lo pincho directamente en la carpeta, este se abre con el Word y muestra todo su contenido.

No he probado la impresión directa desde tu código, ya que he tenido un problema con la impresora, lo haré mañana.

Lo probé con Windows 10 de 64 bits, FWH 17.09 y Harbour.

Muchos saludos
Antonio.

[cmsoft]

Hola Antonio:
Si el parametro que le pasas en lImprime es .f., solo intenta imprimir, y si se lo pasas en .t. debe abrir el Word con el contenido.
Esto me esta funcionando en un programa que usan a diario actualmente.
Cualquier consulta a tu disposicion.
Saludos

[remtec]

Code: Select all  Expand view  RUN

*************************************************
** Armar documento rtf
*************************************************
PROCEDURE Merge(cDocu,base,lImprime)
LOCAL oWord , oDoc, cText , cDoc
cDoc := hb_CurDrive()+":\"+curdir()+"\Modelos\"+ALLTRIM(cDocu)+".rtf"  //Este es un RTF base, donde despues mezclo con texto de una tabla
IF !FILE(hb_CurDrive()+":\"+curdir()+"\Modelos\"+ALLTRIM(cDocu)+".rtf")
   MsgStop("El archivo base no existe"+chr(10)+cDoc,"Error")
   RETURN  
ENDIF
cText := MEMOREAD(hb_CurDrive()+":\"+curdir()+"\Modelos\"+ALLTRIM(cDocu)+".rtf")
   //Merge
   cText := STRTRAN(ctext,"<historianro>" ,ALLTRIM(STR(base->historianro,10)))
   cText := STRTRAN(ctext,"<actanro>"  ,ALLTRIM(STR(base->actanro,10)))
   cText := STRTRAN(ctext,"<nropaciente>"  ,ALLTRIM(STR(base->nropaciente,5)) )
   cText := STRTRAN(ctext,"<texto>"    ,base->texto)

   memowrit( hb_CurDrive()+":\"+curdir()+"\Impresion\"+ALLTRIM(cDocu)+"Temp"+ALLTRIM(oApp:usuario)+".rtf", cText ) // Aca genero el nuevo documento
   if   (oWord := WinWordObj() ) == nil
        MsgAlert( "MS Word no instalado" ,  "Alerta" )        
        else
        oDoc = oWord:Documents:Open(hb_CurDrive()+":\"+curdir()+"\Impresion\"+ALLTRIM(cDocu)+"Temp"+ALLTRIM(oApp:usuario)+".rtf")
        if oDoc == nil
           MsgAlert("Fallo crear documento, verifique que no este en uso" , "Alerta"  )          
         endif
   endif  
   IF lImprime  
      oDoc:PrintOut()
      oDoc:Close()
   ELSE
      oDoc:Application:Visible := .t.
   ENDIF
RETURN

Tengo una carpeta MODELOS donde tengo los modelos base
Tengo una carpeta IMPRESION donde guarda los rtf modificados
El parametro lImprime me dice si quiero verlo en vista previo o directamente que salga impreso
cDocu es el nombre del documento base que quiero tomar
oApp:usuario es una variable estatica que tiene el nombre del usuario (El documento lo creo con el nombre del usuario)
Espero te sirva

Hola Cesar Gomez.

Como estas??

Una consulta, con tu ejemplo, como imprimir el contenido de una variable con el contenido de un campo memo, sin pasar por un archivo RTF, ya que tu grabas el archivo en el disco y luego lo abres e imprimes.?

Muchos Saludos
Antonio

[cmsoft]

Hola Antonio:
En mi ejemplo, tienes que guardar el archivo si o si en disco, porque despues es Word el que se encargar de imprimirlo.
Entiendo que vos queres imprimirlo sin pasar por Word... Directo desde tu programa. No lo he hecho nunca eso, pero voy a revisar y comento.
Saludos

[remtec]

Hola Cesar

Mil gracias por tu ayuda.

Efectivamente necesito saltarme el paso de pasar por Word, sacar el texto enriquecido del campo memo y mandarlo a imprimir directo a la impresora.

Estare atento a tus comentarios.

Muchos Saludos y disculpa todas las molestias.

Antonio