Solved

Print screen of an Access Form

Posted on 2011-03-24
5
1,628 Views
Last Modified: 2012-08-14
I would like to "print screen" an Access form and print it.  I don't want to "print screen" the entire screen but would like to designate the coordinates of the screen that makes up the form.  My objective is to print exactly what I see on the screen.  Is it possible to do through VBA?
0
Comment
Question by:marku24
  • 2
  • 2
5 Comments
 
LVL 44

Expert Comment

by:GRayL
ID: 35211092
use Alt+PrintScreen

then copy to something like WordPad, save it, and use it from there.
0
 
LVL 84

Accepted Solution

by:
Scott McDaniel (Microsoft Access MVP - EE MVE ) earned 200 total points
ID: 35211267
You're referring to a "screen capture"? Where you take a screenshot of whatever is on the screen? If so, see this page:

http://word.mvps.org/faqs/macrosvba/PrtSc.htm

It's listed as Word, but it will work in Access.

If you're trying to print the data that's in that form, then you should build a Report and print that.
0
 
LVL 5

Assisted Solution

by:DoveTails
DoveTails earned 50 total points
ID: 35211820
Something I saved from a web site that may be useful.........
Insert a new module and paste the following to create a "ScreenCapture" procedure:
'===========================================
Option Compare Database
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
 bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_SNAPSHOT = &H2C
Private Const VK_MENU = &H12

Sub ScreenCapture()
 keybd_event VK_MENU, 0, 0, 0
 keybd_event VK_SNAPSHOT, 0, 0, 0
 keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
 keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
End Sub
'=============================================

Add a command button to your form and on the click event type:
  ScreenCapture

This will paste your active window to your clip board (you can paste into Word to see what you have)
I can only get your active window to the clipboard ... not sure how to print from there.

Hope that helps.
0
 
LVL 44

Expert Comment

by:GRayL
ID: 35212163
Egg on my face:  I forgot about this a long time ago.  When in the Desktop, Alt+PrintScreen will capture the window with the focus - PrintScreen will capture the whole desktop.  For some reason, strange or otherwise, when in Access, they both do the same thing - the whole desktop.  Looks like DoveTails has the solution.
0
 
LVL 84
ID: 35212376
Actually, the code supplied by DoveTails is nearly identical to the code at the link I provided.
0

Featured Post

Backup Your Microsoft Windows Server®

Backup all your Microsoft Windows Server – on-premises, in remote locations, in private and hybrid clouds. Your entire Windows Server will be backed up in one easy step with patented, block-level disk imaging. We achieve RTOs (recovery time objectives) as low as 15 seconds.

Join & Write a Comment

It took me quite some time to sort out all the different properties of combo and list boxes available from Visual Basic at run-time. Not that the documentation is lacking: the help pages are quite thorough and well written. The problem was rather wh…
Introduction The Visual Basic for Applications (VBA) language is at the heart of every application that you write. It is your key to taking Access beyond the world of wizards into a world where anything is possible. This article introduces you to…
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

705 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

18 Experts available now in Live!

Get 1:1 Help Now