FiveTech Software tech support forums

... oFont, oIni, oPrinter PRINTER oPrn PREVIEW DEFINE FONT oFont NAME "Times New Roman" SIZE 0,-12 OF oPrn PAGE #ifdef __CLIPPER__ oPrn:ImportWMF( "Invoice.Wmf" ) #else oPrn:ImportWMF( "Invoice.emf" ) #endif oPrn:CmSay( 2.1, 16, "19960001") // invoice oPrn:CmSay( ...

... oFont, oIni, oPrinter PRINTER oPrn PREVIEW DEFINE FONT oFont NAME "Times New Roman" SIZE 0,-12 OF oPrn PAGE #ifdef __CLIPPER__ oPrn:ImportWMF( "Invoice.Wmf" ) #else oPrn:ImportWMF( "Invoice.emf" ) #endif oPrn:CmSay( 2.1, 16, "19960001") // invoice oPrn:CmSay( ...

... way in XP and Seven? 2.- Perhaps the error may be in the printing of EMF and not alike in XP than in Seven. I also use the standard function oPrn:ImportWMF(). Can you create a test print with oPrn:ImportWMF() to see if it printed the same way?

Hi Antonio

No problem, the htmltools.exe is a good solution.
I can't change the logo because I have 2 or 3 logo per client and 1500 clients, i think have more 4000 logo.

Thanks for the quick return

Marcelo

Marcelo,

If the painting of the logo is just what it is failing, why don't you modify the logo to increase its top and left margins ? That may be a good workaround

... I am using the tool htmltools to convert wmf to emf http://www.verypdf.com/app/html-converter/index.html I put a code in importWmf() to convert using the htmltools.exe winexec("htmltools.exe "+cFileWmf+" "+cFileEmf) Anyway thank you

... so there is nothing we can do there, but in Method ImportWMF() there are some places where you could adjust the dimensions: in printer.prg:    ::SetIsoTropicMode()   ::SetWindowExt( ...

I need that WMF2EMF() convert WMF size page to EMF, today convert only the logo, and change the page size.

Please, help me.

Hi

To print, I always used the logos in WMF format
I create the WMF page size and position the image of the logo in the correct location.
Now importWMF converts to EMF, and loses position just inside the WMF

Please, I have 1500 clients, can not change all logos.

Hugs

Marcelo

... file obtained from the client. Now , i try to change the program as : # ifdef TEST oPrn:SayImage(0,0,"b:\test\mclskop.jpg") # else oPrn:ImportWMF(MCLSKOP) # endif Where the jpg-file is scanned ( full page) . nView shows as print dimensions : 21.009 x 29.705 cm , A4 format Paint 1191 ...

Hello,
for me sample testprev.prg from the Fivewin samples is not working any more.
Also my own code where I use oPrn:ImportWMF( "invoice.emf" ) is not working anymore.
Does someone have an advise.
Thanks in advance
Otto

... las copias, de manera que algunos campos saldrian o no segun original o copia Desventajas: Doble (o mas, segun copias) vuelta: lento. 2ª) Hacer un ImportWmf() de los wmf creados y pintarle "copia" . Esta técnica la aprendí de TImprime/UtilPrn de TheFull Ventajas: Es rapido Desventajas: ...

... el primer CmSay() tendra distintas "distancias" con los otros CmSay() en funcion de la impresora. 2.- Si usamos por ejemplo la funcion ::ImportWMF(), se imprime a partir del desplazamiento. Que quiere decir esto ? Si yo tomo como origen 0,0 el desplazamiento de X e Y, y todas las funciones ...

... page. Their names are in ::aMeta The technique in that post, after creating the EMF's, loops them and adds the page number at the bottom (after ImportWMF(): oPrn:Say) Hi, Davide

... Local nLin := 64*nRowStep if nPaginas <= 1 // Solamente una pagina Return Nil endif oPrn:aMeta := {} FOR x := 1 TO nPaginas PAGE oPrn:ImportWMF( aFicheros[ x ], .F. ) oPrn:Say( nLin,nCol, +Alltrim( Str( x ) ) +"/" + Alltrim( Str( nPaginas ) ) , oFont,,,,PAD_RIGHT ) ENDPAGE ...