FiveTech Software tech support forums

Bueno, tarde pero llegué: En el lugar de la impresion donde desees imprimir tu imagen, luego de crear el objeto oPrn, etc. cImmage := "TUIMAGEN.JPG" nImgWidth := 540 nImgHeight := 360 nImgRaster := 8913094 // SRCAND oImage := TImage():New( , , , , , cImmage , , oWnd ) oPrn:SayImage( ...

Ahhh, ya veo. El bitmap se va ajustando a la anchura y altura. Al final lo he dejado así. oPrn:SayBitmap( 1, 1, "..\bitmaps\Formato.bmp", 486*6, 630*6 ) Pero el bitmap se deforma por que es más pequeño. Necesito que sea más grande para llenar el fondo. ¿Hay alguna forma ...

Fernando,

Si revisas el ejemplo samples\TestPrn2.prg y cambias esta línea:

oPrn:SayBitmap( 1, 1, "..\bitmaps\fivewin.bmp", 600, 800 )

poniendo 600 y 800, verás como cambia de tamaño en el preview.

Buenas las tengas... Tengo el siguiente código local cLogo := "c:\Docs\FORMATO.bmp" PRINTER oPrn PREVIEW PAGE oPrn:SayBitmap(0,0,cLogo) --> El preview me muestra un bitmap muuuuy pequeño. He intentado usar esto, donde 486x630 son las dimensiones en pixeles del bitmap.. ...

Estimados

Existe la posibilidad que en la clase tdosprn pueda imprimir en una impresora carro ancho, o cual sería el oprn:Command( ??? )

desde ya gracias


Saludos
Patricio

... ID 800; OF oDlg ADJUST UPDATE //SCROLL // ACTIVATE DIALOG oDlg CENTER ON INIT oDlg:End() // Para imprimir la imagen e imprimir texto encima: oPrn:StartPage() //PAGE // IF lLImagen oImagen:LoadImage(,cFImagen) oPrn:SayImage( 0, 0, oImagen,4800,6800 ) ENDIF // IF lLTexto cTexto:=Memoread(cFTexto) ...

Armando Gracias por responder

pero no existe oPrn:oDevice, ya que estoy usando

PRINT oPrn PREVIEW MODAL

y viendo la clase Report tiene oDevice que es la clase print

saludos
Patricio

Yo se como hacerlo, pero no tengo el codigo aqui, apenas este en mi casa te contesto.

Creo que era con oPrn:SayImage(), o algo asi...

Saludos

Patricio:

Intenta con

oPrn:oDevice:SetPage(1)

Saludos, Armando

... o menos asi " Local (*) Foraneo ( ) garantia ( )", espero me haya explicado correctamente. La otra es que al mandar un preview de la clase PRINT oPrn sale todo "amontonado" tengo que cambiar de FACTOR a 1 o 2 y luego regresarlo a 1 para que se vea detalladamente la informacion, hay alguna forma ...

Estimado me pueden ayudar con PRINTER Estoy ajustando un tipo de papel con PRINT oPrn PREVIEW MODAL xTmp := oPrn:Cmtr2Pix(25,18) oPrn:SetSize(xTmp[1],xTmp[2]) oPrn:StartPage() bla..bla.. oPrn:EndPage() ENDPRINT pero el problema que todos los reportes quedan con ...

The latest preview do not work correctly on some page size. The problem is on startup the page are hidden one have to press the zoom/unzoom button to display it.

I am using 21.15 x 14.00
::oPrn:setsize(2150,1400)

Hola foro. Me estoy volviendo gilipollas o es que ya no se usar el objeto TPrinter ... me explico Function Prueba() Local oPrn, oFont PRINT oPrn PREVIEW PAGE DEFINE FONT oFont NAME "Courier New" SIZE 0,-12 OF oPrn oPrn:cmSay (1,1,"HOLA MACARENA",oFont) oFont:End() ENDPAGE ENDPRINT Return ...

Hola Manuel.... ... ... REPORT oPrn CAPTION vTitulo PREVIEW; HEADER M->vNomPro,"Pagina "+Str(oPrn:nPage()) RIGHT; TITLE vTitulo CENTER; FOOTER "Fecha:" + DtoC(Date())+" Hora:"+Time() FONT vFont oPrn:oDevice:lPrvModal := .T. // preview ...

Hola de nuevo amigos: Tomando el ejemplo de SAMPLES\COREL.PRG (// Using CorelDraw to generate printing templates!!!), actualmente imprimo con oPrn:ImportWMF( ".\PREIMP\PR-103-1.Wmf" ) el fondo del documento y a través de oPrn:CmSay( 7.4, 5, SUBSTR(oDbf0:CSIPF,2,10),oFont) imprimo el dato que ...