Solved

Print screen of an Access Form

Posted on 2011-03-24
5
1,889 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

Salesforce Has Never Been Easier

Improve and reinforce salesforce training & adoption using WalkMe's digital adoption platform. Start saving on costly employee training by creating fast intuitive Walk-Thrus for Salesforce. Claim your Free Account Now

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Copy all value in one form to another 4 41
Access query error 3 26
Error 438 6 16
docmd has stopped working 3 10
It’s the first day of March, the weather is starting to warm up and the excitement of the upcoming St. Patrick’s Day holiday can be felt throughout the world.
AutoNumbers should increment automatically, without duplicates.  But sometimes something goes wrong, and the next AutoNumber value is a duplicate.  This article shows how to recover from this problem.
In Microsoft Access, learn how to “cascade” or have the displayed data of one combo control depend upon what’s entered in another. Base the dependent combo on a query for its row source: Add a reference to the first combo on the form as criteria i…
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

726 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