OpenEuphoria

Re: printing xpm with white ground

• Posted by Kondor Attila <euf-lev at dpg.hu> Aug 01, 2005
• 567 views

I did realize what is the cause of the problem.

I wrote  in the printer select procedure:

    	printer_seq = getPrinter()
    	if length(printer_seq) = 0 then
		return False
	end if
		
	printerDC=printer_seq[4]
	.............
	LOGPIXELS_X = w32Func(xGetDeviceCaps,{getDC(Printer), LOGPIXELSX})
	LOGPIXELS_Y = w32Func(xGetDeviceCaps,{getDC(Printer), LOGPIXELSY})

correctly:
	LOGPIXELS_X = w32Func(xGetDeviceCaps,{printerDC, LOGPIXELSX})
	LOGPIXELS_Y = w32Func(xGetDeviceCaps,{printerDC, LOGPIXELSY})

Attila Kondor
------------------------------
> 
> I have a formula_xpm.
> 
> The formula_xpm header:
> 
> global constant
> formula_xpm = {
> "177 70 2 1",
> ".        c #000000",
> "         c #FFFFFF", 
> 
> constant
> 	 hDib_formula = createDIB( xpmToEuBmp( formula_xpm ))
> 	
> I can draw in the screen:	  
> 	setTransparentColor(rgb(255,255,255))
> 	transBlt(tbl2_T, 660, 485, hDib_szoras)
> 	
> If I print it alone,  the paper ground remain white,
> but if I print it in text environment, the ground become gray.
> 
>  stretchBlt( Printer, floor(157*Hor_dotpermm), floor(y1*Ver_dotpermm),
>  	   floor(40*Hor_dotpermm), floor(15.8*Ver_dotpermm), 
>  	  hDib_formula, 0, 0, 177, 70, SrcCopy )
> 
> How can I print it always with white ground?
> 
> Thanks!
> 
> Attila Kondor
> --