Win 4D 12.x and Win 8.1

ADeeg (5/5/14 5:39AM)
ADeeg (5/14/14 8:51AM)

ADeeg (5/5/14 5:39 AM)

Paul,

I create this workaround and call in in "ON LOAD" for printing forms:

?//Print_Win8Bug({SizeBigFont};{SizeSmallFont})
?//Workaround for the v12 print form bug on windows 8.1

C_LONGINT($1;$2;$vl_PrintResolution;$vl_Big;$vl_Small)
If (Form event=On Load)
?// currently with 4D v12 only in Win 8.1
If (<>SSystemVersion="Win8.1@")

?//600 dpi in most case otherwise 1200 or 300
$vl_PrintResolution:=600
If (Count parameters>=2)
$vl_Big:=$1
$vl_Small:=$2
Else
$vl_Big:=Round((12/96)*$vl_PrintResolution;0) ?// 12Pt 12/96*600=
75
$vl_Small:=Round((10/96)*$vl_PrintResolution;0) ?// 10Pt =63
End if

?// these are the object names on the print form
OBJECT SET FONT SIZE(*;"text@...
OBJECT SET FONT SIZE(*;"fiel@...
OBJECT SET FONT SIZE(*;"large@...
OBJECT SET FONT SIZE(*;"scroll@...
OBJECT SET FONT SIZE(*;"varia@...
OBJECT SET FONT SIZE(*;"small@...

End if ?=A0//End Check System Version
End if ?=A0//End On Load

Best Regards
Armin Deeg
www.node.de

Paul Ziegler-2 wrote
color><param>00000,0000,DDEE/param>II know 4D 12.x has printing
problem with Win 8.1, but was wondering if
there was any hope of Win 8.1 updates fixing the problem. I had heard
something about this on the NUG a few months ago.

Paul Ziegler
/color>

--
View this message in context:

http://4d.1045681.n5.nabble.com/Win-4D-12-x-and-Win-8-1-tp5730168p5730176.
html
Sent from the 4D Tech mailing list archive at Nabble.com.
ADeeg (5/14/14 8:51 AM)

Jim, sorry no

I think 80% =600dpi for Laser and for other you have to hardcode it

Regards Armin

Jim Hays wrote
color><param>00000,0000,DDEE/param>HHi Armin,

Round((fontSize/96)*PrintResolution;0) is very handy!

Do you know of a way to detect the current printer resolution
programmatically?

Thanks,

Jim Hays

On Mon, May 5, 2014 at 8:39 AM, ADeeg &lt;
/color>
color><param>00000,0000,DDEE/param>ddeeg@
/color>
color><param>00000,0000,DDEE/param>&&gt; wrote:

/color><color><param>8826F,0000,8219/param>PPaul,

I create this workaround and call in in "ON LOAD" for printing forms:

?//Print_Win8Bug({SizeBigFont};{SizeSmallFont})
?//Workaround for the v12 print form bug on windows 8.1

C_LONGINT($1;$2;$vl_PrintResolution;$vl_Big;$vl_Small)
If (Form event=On Load)
?// currently with 4D v12 only in Win 8.1
If (<>SSystemVersion="Win8.1@")

?//600 dpi in most case otherwise 1200 or 300
$vl_PrintResolution:=600
If (Count parameters>=2)
$vl_Big:=$1
$vl_Small:=$2
Else
$vl_Big:=Round((12/96)*$vl_PrintResolution;0) ?// 12Pt 12/96*600=
75
$vl_Small:=Round((10/96)*$vl_PrintResolution;0) ?// 10Pt =63
End if

?// these are the object names on the print form
OBJECT SET FONT SIZE(*;"text@...
OBJECT SET FONT SIZE(*;"fiel@...
OBJECT SET FONT SIZE(*;"large@...
OBJECT SET FONT SIZE(*;"scroll@...
OBJECT SET FONT SIZE(*;"varia@...
OBJECT SET FONT SIZE(*;"small@...

End if ?=A0//End Check System Version
End if ?=A0//End On Load

Best Regards
Armin Deeg
www.node.de

Paul Ziegler-2 wrote
/color><color><param>FFC79,0365,0771/param>II know 4D 12.x has
printing problem with Win 8.1, but was wondering if
there was any hope of Win 8.1 updates fixing the problem. I had heard
something about this on the NUG a few months ago.

Paul Ziegler
/color><color><param>8826F,0000,8219/param>

/color><color><param>00000,0000,DDEE/param>
/color><color><param>8826F,0000,8219/param>---
View this message in context:

http://4d.1045681.n5.nabble.com/Win-4D-12-x-and-Win-8-1-tp5730168p5730176.
html
Sent from the 4D Tech mailing list archive at Nabble.com.
/color>

--
View this message in context:

http://4d.1045681.n5.nabble.com/Win-4D-12-x-and-Win-8-1-tp5730168p5730390.
html
Sent from the 4D Tech mailing list archive at Nabble.com.
Reply to this message

Summary created 5/14/14 at 11:37AM by Intellex Corporation

Comments welcome at: feedback@intellexcorp.com