FiveTech Software tech support forums

... Func RCaja(nArriba,nIzq,nAbajo,nDerecha,nAncho,nAlto,oPen, oPrn) Local xCor := {} , yCor := {} // Pasamos coordenadas de cms a pixel xCor := oPrn:Cmtr2Pix(nArriba,nIzq) yCor := oPrn:Cmtr2Pix(nAbajo,nDerecha) oPrn:RoundBox(xCor[1],xCor[2],yCor[1],yCor[2],nAncho,nAlto,oPen) ...

Bueno amigos, necesito su ayuda, como hago para q la clase TPrinter no haga el salto de pagina, ya q estoy imprimiendo en un formato de hoja continua de 7 cms de ancho y 15 de largo.
les agradeceria su ayuda
Saludos

... to print is a 250,70 pixels BMP. It displays it fine in the preview (oPrn:SayBitmap(1,1,cFile)) but in the printer is very small (about .5 x .5 cms.). I calculate the horizontal and vertical resolution for 80 cols and 60 rows. I had a routine in FW 1.9 that worked fine but now with FW 2.4 it ...

... un metodo que coniverte Centimetros a puntros de la impresora con la que estes imprimiendo, asi que vamos a suponer que quieres un bitmap de 5x5 cms colocado a los 10 cm, 10 cm del borde superior izqauierdo: Hacemos esto: aPos := oPrinter:Cmtr2Pix(10,10) aTam := oPrinter:Cmtr2Pix(5,5) ...

... aTypes := { "1-Scale Gray","2-Real Color","3-Palette Color" } Local aResolutions := { "75","100","150","200","300" } Local aUnits := { "0-Dpi","1-Cms","2-Picas","3-Points","4-Twips","6-Pixels"} Local cUnit := aUnits[1] Local nUnit := 0 // Default RGB IF nType == NIL nType := TWPT_GRAY ELSEIF Val( ...