dcsimg
Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


Tip of the Day
Language: Visual Basic
Expertise: Beginner
Aug 6, 1997

WEBINAR:

On-Demand

Building the Right Environment to Support AI, Machine Learning and Deep Learning


Print A Single Sub Or Function

The problem? You want to print a single sub but VB always prints all the subs that are in the current form. You could copy it to the clipboard and print it with the MS-Editor or Notepad. You could buy expensive tools to do this seemingly simple task. Here's a less annoying solution to the problem. Generate a small form. Add a command button. The caption may be "Print Sub." Then, add this code to the module:
 Sub Command1_Click ()
	' Make sure that VB has the focus
	AppAcitvate "Microsoft Visual Basic"
	' Move the cursor to the upper left corner. 
	' The sub can contain a maximum of 500 lines.
	' send SHIFT together with the DOWN key 
	' to mark the whole sub.
SendKeys "{Home}{UP 500} + ({DOWN 500}) % (EC)", True 
	' Copy SUB to the clipboard
Printer.Print Clipboard.GetText()
	' Print Clipboard
Printer.EndDoc
	' Un-mark the SUB
SendKeys "{HOME}"
End Sub
Generate the EXE and run it together with VB. Move the Print-Sub form to a convenient desktop position. If you want a single sub of your project to be printed, set the cursor to any position in this SUB and click on the Print-Sub button. I've tested the code with VB3 Pro. In other VB Versions (such as the German Standard edition) you might have to change the "%(EC)" portion. "EC" refers to the VB menu bar.
Andreas Schilling
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date