Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Printing Forms

Status
Not open for further replies.

jerold

Programmer
Aug 30, 2000
52
PH
How would I provide a function that would print the
running form in my application?
 
Hmm, it is hard, indeed. However, you can try SET PRINTER ON, use some drawing commands (like thisfrm.Print) and than SET PRINTER OFF/SET PRINTER TO., I doubt this will help a lot.

Vlad Grynchyshyn
vgryn@softserve.lviv.ua
The professional level of programmer could be determined by level of stupidity of his/her bugs
 
Download George Tasker's Obj2Bmp class from UniversalThread.com.

It allows you to create bitmap files from objects.

Example:
oBMP=CreateObject('BmpMaker')
oBMP.cFileName='C:\MyBmp.bmp'
oBMP.MakeBitmap(hWnd,4)

To print the bitmap,

DECLARE INTEGER ShellExecute IN SHELL32 INTEGER hwnd, STRING cOP, STRING cFile,;
STRING cParams, STRING cStartDir, INTEGER nShowCmd
DECLARE INTEGER GetDesktopWindow IN User32

lnWhnd = GetDesktopWindow()
lnResult = ShellExecute(lnWhnd, 'PRINT', 'C:\MyBmp.bmp', '', '', 0)

Now, this is straight off the top of my head, so take it for its worth. Jon Hawkins
jonscott8@yahoo.com

The World Is Headed For Mutiny,
When All We Want Is Unity. - Creed
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top