Imprimir a

[Xevi]

Esta es ahora mi inquietud...
En una impresión desde Xailer...
Printer:nOrientation := DMORIENT_PORTRAIT
Printer:StartDoc()
Printer:oCanvas:nMapMode := mmHIMETRICS
Printer:oCanvas:oFont := TFont():Create( "Arial", 9, 0, 400 )
Printer:StartPage()
Printer:oCanvas:TextOut( 90, 2300, "Texto de prueba" )
Printer:EndPage()
//Aquí ¿cómo puedo añadir un documento de word??? ya sea de una o más
páginas
Printer:EndDoc()
Printer:Preview()
Gracias.
Un Saludo,
Xevi.

[Xevi]

¿Se puede... o he dicho alguna barbaridad???
Un Saludo,
Xevi.
"Xevi" <xevicomas_quitar_esto@gmail.com> escribió en el mensaje
news:499319db$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Esta es ahora mi inquietud...
>
> En una impresión desde Xailer...
>
> Printer:nOrientation := DMORIENT_PORTRAIT
> Printer:StartDoc()
> Printer:oCanvas:nMapMode := mmHIMETRICS
>
> Printer:oCanvas:oFont := TFont():Create( "Arial", 9, 0, 400 )
>
> Printer:StartPage()
> Printer:oCanvas:TextOut( 90, 2300, "Texto de prueba" )
> Printer:EndPage()
>
> //Aquí ¿cómo puedo añadir un documento de word??? ya sea de una o más
> páginas
>
> Printer:EndDoc()
>
> Printer:Preview()
>
>
> Gracias.
>
> Un Saludo,
> Xevi.
>

[notengo]

Xevi,
> ¿Se puede... o he dicho alguna barbaridad???
Poder se puede, pero seguramente no como has pensado.
Puedes imprimir desde Xailer, luego usar OLE para imprimir el documento de
Word desde el propio Word (tiene que estar instalado en la máquina donde
quieras hacerlo) y volver a imprimir con Xailer otra vez. Eso sí­, tendrás
que olvidarte del preview y hacerlo con impresión directa.
Saludos,
José Lalí­n

[Bingen Ugaldebere]

Lo que deberí­as es de hacerlo todo con Word directamente, escribir el
texto en la propia página sobre el documento Word y listo.
Si te interesa preparé una clase tWord para manejar directamente todo
desde Xailer, lo único es que no la he publicado por falta de tiempo
para preparar un manual y unos ejemplos.
Salu2.

[pilo[2]]

Bingen te puedo hacer una sugerencia:
Se puede hacer para el openoffice.
Gracias.
Bingen Ugaldebere escribió:
> Lo que deberí­as es de hacerlo todo con Word directamente, escribir el
> texto en la propia página sobre el documento Word y listo.
>
> Si te interesa preparé una clase tWord para manejar directamente todo
> desde Xailer, lo único es que no la he publicado por falta de tiempo
> para preparar un manual y unos ejemplos.
>
> Salu2.
>

[Xevi]

José,
el caso que me ocupa, creo que no puede utilizarse de esta manera que me
comentas.
Mira, debo de imprimir Albaranes de alquiler de maquinaria, que constan de
una primera hoja y el reverso con las condiciones generales del contrato.
Estas condiciones las tienen en un documento Word y la empresa puede cambiar
el texto, añadir/modificar/eliminar cláusulas, y yo debo imprimirlo en una
impresora Laser que dispone como es natural de impresión Duplex.
Como el texto que ocupan las condiciones generales està escrito en Word,...
Tipos de letra, Negrita, Tabulaciones, texto alineado... esto no puedo
lograrlo, o no se como hacerlo, en Xailer. Para incluirlo como una página
más de la impresión del Albarán.
Gracias por tu tiempo.
Un Saludo,
Xevi.
"José Lalín" <notengo@correo.com> escribió en el mensaje
news:4994a8cd$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>
> Xevi,
>
>> ¿Se puede... o he dicho alguna barbaridad???
>
> Poder se puede, pero seguramente no como has pensado.
>
> Puedes imprimir desde Xailer, luego usar OLE para imprimir el documento de
> Word desde el propio Word (tiene que estar instalado en la máquina donde
> quieras hacerlo) y volver a imprimir con Xailer otra vez. Eso sí, tendrás
> que olvidarte del preview y hacerlo con impresión directa.
>
> Saludos,
> José Lalín

[Xevi]

Bingen,
No se si sería efectivo "volcar" todo lo que tengo programado utilizando
TPrinter y TCanvas a Word,...
La verdad es que estoy utilizando la clase TWord de JoseDavidAngulo para
otro menester, y si que me funciona perfectamente (también probé tu clase
tWord, pero no recuerdo porqué decidí utilizar la de JoseDavidAngulo)
No creo que lo que intento hacer sea una locura, pues a mas de uno le puede
ocurrir que tenga que imprimir un reverso de documento de Albarán o Factura.
Un Saludo,
Xevi.
"Bingen Ugaldebere" <bingen@bisoft.com> escribió en el mensaje
news:499524b3$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Lo que deberías es de hacerlo todo con Word directamente, escribir el
> texto en la propia página sobre el documento Word y listo.
>
> Si te interesa preparé una clase tWord para manejar directamente todo
> desde Xailer, lo único es que no la he publicado por falta de tiempo para
> preparar un manual y unos ejemplos.
>
> Salu2.
>

[Bingen Ugaldebere]

No lo siento OpenOffice no tiene OLE.
Salu2.
pilo escribió:
> Bingen te puedo hacer una sugerencia:
> Se puede hacer para el openoffice.
> Gracias.
> Bingen Ugaldebere escribió:
>> Lo que deberí­as es de hacerlo todo con Word directamente, escribir el
>> texto en la propia página sobre el documento Word y listo.
>>
>> Si te interesa preparé una clase tWord para manejar directamente todo
>> desde Xailer, lo único es que no la he publicado por falta de tiempo
>> para preparar un manual y unos ejemplos.
>>
>> Salu2.
>>

[Xevi]

Carlos,
Te agradeceria si pudieras poner algun pequeño ejemplo o líneas de código de
como lo estás utilizando.
Gracias.
Un Saludo,
Xevi.
"Carlos Ortiz" <cortizassist@hotmail.com> escribió en el mensaje
news:499576e7$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Yo hago algo similar para las historias clinicas de las personas y lo
> manejo con RTF, tengo partes que están fijas y otras que las edita la
> secretaria para completar algo especifico del estudio solicitado o
> efectuado, despues cuando mando a imprimir armo la historia clinica
> juntando lo que le practicaron a la persona + los textos fijos y lugar
> para firmas etc etc.
> Saludos
>
> "Xevi" <xevicomas_quitar_esto@gmail.com> escribió en el mensaje
> news:[email=49953243@svctag-j7w3v3j....]49953243@svctag-j7w3v3j....[/email]
>> Bingen,
>>
>> No se si sería efectivo "volcar" todo lo que tengo programado utilizando
>> TPrinter y TCanvas a Word,...
>> La verdad es que estoy utilizando la clase TWord de JoseDavidAngulo para
>> otro menester, y si que me funciona perfectamente (también probé tu clase
>> tWord, pero no recuerdo porqué decidí utilizar la de JoseDavidAngulo)
>>
>> No creo que lo que intento hacer sea una locura, pues a mas de uno le
>> puede ocurrir que tenga que imprimir un reverso de documento de Albarán o
>> Factura.
>>
>>
>> Un Saludo,
>> Xevi.
>>
>> "Bingen Ugaldebere" <bingen@bisoft.com> escribió en el mensaje
>> news:499524b3$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>> Lo que deberías es de hacerlo todo con Word directamente, escribir el
>>> texto en la propia página sobre el documento Word y listo.
>>>
>>> Si te interesa preparé una clase tWord para manejar directamente todo
>>> desde Xailer, lo único es que no la he publicado por falta de tiempo
>>> para preparar un manual y unos ejemplos.
>>>
>>> Salu2.
>>>
>>
>>
>
>

[Bingen Ugaldebere]

En cambio FastReport si que genera directamente documentos .Odt que creo
que son los que utiliza el procesador de textos de OpenOffice no?
pilo escribió:
> Bingen te puedo hacer una sugerencia:
> Se puede hacer para el openoffice.
> Gracias.
> Bingen Ugaldebere escribió:
>> Lo que deberí­as es de hacerlo todo con Word directamente, escribir el
>> texto en la propia página sobre el documento Word y listo.
>>
>> Si te interesa preparé una clase tWord para manejar directamente todo
>> desde Xailer, lo único es que no la he publicado por falta de tiempo
>> para preparar un manual y unos ejemplos.
>>
>> Salu2.
>>

[Carlos Ortiz]

Yo hago algo similar para las historias clinicas de las personas y lo manejo
con RTF, tengo partes que están fijas y otras que las edita la secretaria
para completar algo especifico del estudio solicitado o efectuado, despues
cuando mando a imprimir armo la historia clinica juntando lo que le
practicaron a la persona + los textos fijos y lugar para firmas etc etc.
Saludos
"Xevi" <xevicomas_quitar_esto@gmail.com> escribió en el mensaje
news:[email=49953243@svctag-j7w3v3j....]49953243@svctag-j7w3v3j....[/email]
> Bingen,
>
> No se si sería efectivo "volcar" todo lo que tengo programado utilizando
> TPrinter y TCanvas a Word,...
> La verdad es que estoy utilizando la clase TWord de JoseDavidAngulo para
> otro menester, y si que me funciona perfectamente (también probé tu clase
> tWord, pero no recuerdo porqué decidí utilizar la de JoseDavidAngulo)
>
> No creo que lo que intento hacer sea una locura, pues a mas de uno le
> puede ocurrir que tenga que imprimir un reverso de documento de Albarán o
> Factura.
>
>
> Un Saludo,
> Xevi.
>
> "Bingen Ugaldebere" <bingen@bisoft.com> escribió en el mensaje
> news:499524b3$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Lo que deberías es de hacerlo todo con Word directamente, escribir el
>> texto en la propia página sobre el documento Word y listo.
>>
>> Si te interesa preparé una clase tWord para manejar directamente todo
>> desde Xailer, lo único es que no la he publicado por falta de tiempo para
>> preparar un manual y unos ejemplos.
>>
>> Salu2.
>>
>
>

[Carlos Ortiz]

Va algo del código, como vas a notar relleno el contenido del RTF de abajo hacia arriba.
//---------------------------------------------------------- ------------------------------------------------------------ --------------------------
METHOD ToolBar1Item5Click( oSender ) CLASS TInformar_estudios
// Levanta los resultados informados de los estudios medicos de un paciente, le inserta un RTF
// con ciertos textos y manda la vista previa.
//---------------------------------------------------------- ------------------------------------------------------------ --------------------------
local tmp:=FileUnique(,"rtf"), RichTmp:=""
// ACA GENERO UN RTF VACIO
WITH OBJECT RichTmp := TRichEdit():New( Self )
:SetBounds( 0, 0, 0, 0 )
:nFormat:=rfRTF
:lRE30:=.t.
:Create()
END WITH

// VOY AGREGANDO TEXTOS
RichTmp:nAlignment:=rpLEFT
RichTmp:InsertText( "ID Paciente "+alltrim(str(::oDSpacamb:codpacamb))+" // ID Solicitud "+alltrim(str(::oDSvisitas:nIDVisi))+" "+alltrim(str(::oDSsolienc:nIDItem))+chr(10) )
RichTmp:InsertText( chr(10) )
RichTmp:nAlignment:=rpRIGHT
RichTmp:InsertText( "Matrí­cula "+busODS(::oDSmedicos,"alltrim(me_matr)","",str(::oDSsolienc:nProEfec),1) + chr(10) )
RichTmp:InsertText( busODS(::oDSmedicos,"oemtoansi(me_nomb)","",str(::oDSsolienc:nProEfec),1) + chr(10) )
RichTmp:InsertText( "Profesional efector" +chr(10) )
RichTmp:InsertText( "----------------------------------------------------" + chr(10) )
RichTmp:InsertText( chr(10)+chr(10)+chr(10) )
// ACA INSERTO UN ARCHIVO RTF QUE TIENE CONSTANTES O GRAFICOS
RichTmp:nAlignment:=rpRIGHT
RichTmp:InsertFile( "....HistClinRtf" +strzero(::oDSsolienc:nIDVisi,10)+strzero(::oDSsolienc:nIDIt em,10)+ ".rtf" )
RichTmp:GoToLine( 0 )
RichTmp:InsertText( chr(10)+chr(10)+chr(10) )
RichTmp:nAlignment:=rpLEFT
RichTmp:SetCharFormat( "Arial", 8, 0, .T., .F., .F., .F., .F., .F. )
RichTmp:InsertText( busODS(::oDSmodesol,"cNomMode","",str(::oDSsolienc:nIDmode),1) )
RichTmp:SetCharFormat( "Arial", 8, 0, .F., .F., .F., .F., .F., .F. )
RichTmp:InsertText( "Estudio solicitado"+chr(10))
RichTmp:InsertText( chr(10) )
RichTmp:InsertText( "Profesional solicitante "+busODS(::oDSmedicos,"oemtoansi(me_nomb)","",str(::oDSvisitas:me_codi),1)+chr(10) )
RichTmp:InsertText( chr(10) )
RichTmp:nAlignment:=rpLEFT
RichTmp:GoToLine( 0 )
RichTmp:nAlignment:=rpLEFT
RichTmp:InsertText( "Número de afiliado: "+oemtoansi(::oDSpacamb:ipam)+chr(10) )
RichTmp:InsertText( "Obra social / Plan: "+oemtoansi(::oDSpacamb:osocialNombre)+chr(10) )
RichTmp:SetCharFormat( "Arial", 8, 0, .T., .F., .F., .F., .F., .F. )
RichTmp:InsertText( "APELLIDO Y NOMBRE: "+oemtoansi(::oDSpacamb:nombre)+chr(10) )
RichTmp:nAlignment:=rpLEFT
RichTmp:GoToLine( 0 )
RichTmp:nAlignment:=rpLEFT
RichTmp:SetCharFormat( "Arial", 8, 0, .F., .F., .F., .F., .F., .F. )
RichTmp:InsertText( "Fecha de realización "+dtoc(::oDSsolienc:dFecReal)+chr(10)+chr(10) )
RichTmp:nAlignment:=rpRIGHT
// ACA INSERTO ESPACIOS EN BLANCO PARA NO OCUPAR LA PARTE MEMBRETADA DE LOS FORMULARIOS
RichTmp:InsertText( chr(10)+chr(10)+chr(10) )
RichTmp:InsertText( " "+chr(10) )
RichTmp:InsertText( chr(10)+chr(10)+chr(10) )
// ME POSICIONO AL PRINCIPIO DEL ARCHIVO
RichTmp:GoToLine( 0 )
RichTmp:Preview()
RETURN Nil
Saludos,
Carlos Ortiz.
--