Print image on form

I am writing a module that will print out checks on a 3 part form.  Its not printing anything fancy but I would like to be able to print a logo in the upper left corner and print "black shaded box" around the legal amount does anyone have any suggestions?  I am using all VB code at the moment to do this and would like to continue in this route if possible.  As always I seem to be in a bind for time so any examples would be appreciated!!!
dorindaAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

 
Richie_SimonettiIT OperationsCommented:
For an exaustive use of graphics in VB see www.vbaccelerator.com/vbmedia
0
 
Richie_SimonettiIT OperationsCommented:
0
 
Crash2100Commented:
Printer.CurrentX = 300
Printer.CurrentY = 300
picLogo.AutoSize = True

Dim X As Integer
Dim Y As Integer

X = Printer.CurrentX
Y = Printer.CurrentY

Printer.Line (X - 100, Y - 100)-(picLogo.Width + X + 100, picLogo.Height + Y + 100), vbBlue, BF

Printer.PaintPicture Form1.picLogo, X, Y
Printer.EndDoc
0
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

 
dorindaAuthor Commented:
Crash2100, Thanks for your help. That was exactly what I needed on the logo!  Does anyone have any suggestions on the legal amount how I would shade the line or box around it?  I will increase and split points if someone else provides that answer.
0
 
Crash2100Commented:
'to change the position of any of the boxes, just use the line statements like this.
'the B at the end means draw a box, and the F means fill that box
'  Printer.Line (intBoxUpperLeftX, intBoxUpperLeftY)-(intBoxLowerRightX, intBoxLowerRightY), intColor, BF


Dim X As Integer
Dim Y As Integer

Printer.CurrentX = 300
Printer.CurrentY = 300

picLogo.BorderStyle = 0
picLogo.AutoSize = True

X = Printer.CurrentX
Y = Printer.CurrentY

Printer.Line (X - 100, Y - 100)-(picLogo.Width + X + 100, picLogo.Height + Y + 100), vbBlue, BF

Printer.PaintPicture picLogo, X, Y

Printer.DrawWidth = 8  'makes the lines thicker

'draws a box around the number amount
X = 5250
Y = 900
Printer.Line (X, Y)-(X + 1100, Y + 280), vbBlue, B


'draws a box around the hand written amount
X = 350
Y = 1200
Printer.Line (X, Y)-(X + 5700, Y + 280), vbBlue, B

Printer.EndDoc
0

Experts Exchange Solution brought to you by ConnectWise

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
 
dorindaAuthor Commented:
Thanks...that is exactly what I wanted!!!
0
 
Crash2100Commented:
glad I could help
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.