Printing a Form

[MarkLeT]

I have created a dynamic form that moves graphics and text around to match external situations. The form looks great, but I would like to print it as well and the report form will not allow the same dynamic placement of text and graphics. Is there a way to do this? (I've tried the prtscn button, but it doesn't work in Windows XP.) I'm using VFP Pro v.7.

Thanks,
Mark

 

[Mike Gagnon]

Mark

faq184-4912 perhaps is what you are looking for?

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[Mike Lewis]

Mark,

Or, how about this:

Here's some code with a small DLL to make it possible to print your form to a bitmap. The Code is written by Eric den Doop, file submitted by Boudewijn Lutgerink Author: Eric den Doop Freeware - 15K Last updated: 2003-09-09 [/color blue]

I found it at

http://leafe.com/dls/vfp

Mike


Mike Lewis
Edinburgh, Scotland

My Visual Foxpro web site:

http://www.ml-consult.demon.co.uk

My Crystal Reports web site:

http://www.ml-crystal.com

 

[mspratt]

Hi Mark,

Found this on the UT. Haven't tried it though.

********************************** Print the current window
function printscr()
	DECLARE INTEGER GetDesktopWindow IN Win32api
	DECLARE INTEGER PrintWindow IN DibApi32 ;
		INTEGER HWnd, ;
		INTEGER fPrintArea, ;	
		INTEGER fPrintOpt, ;	
		INTEGER wxScale, ;	
		INTEGER wyScale, ;	
		STRING @ szJobName	
	LOCAL nRetVal,cJobName && title you want to show when printing
	cJobName = 'Print Screen' && or whatever - this could be passed in as a parameter, also.
	nRetVal = PrintWindow(GetDesktopWindow(),1,1,0,0,@cJobName)	
	IF nRetVal != 0	
		IF nRetVal != 6 && 6 = User canceled printing
			MESSAGEBOX("Unable to print the window" + chr(10) + ;
						"See System Administrator " + STR(nRetVal),48, ;
						"FUBA Print Screen ")
		ENDIF	
	ENDIF
	RETURN
*Got this from someone on Universal Thread  and it works great. Any thanks should go to them.

DibApi32.dll is available from microsoft.

Regards,

Mike