Print dotted-lines

What is the best possible way to print dotted lines
We are using the createpen-api but it doesn't always work
the printout on a HP-printer looks like: - - - - -
and on a canon it looks like: ---------
How can we get the same printouts ? (any printer)
gaAsked:
Who is Participating?
 
wizard2072098Connect With a Mentor Commented:
The simple answer is: No, there's no easy way.

If you use a generic print command, you'll get the default for that printer type.

If you want something specific, you gotta code it specific...

Everybody wants EASY, EASY, EASY. If it were really that easy, no software company could stay in business.
0
 
swiltCommented:
Try using Printer.Line

Printer.DrawStyle = vbDashDotDot
Printer.DrawWidth = 1
Printer.Line (0, 0)-(1000, 1000)
Printer.EndDoc


Other DrawStyle values:

vbSolid      0      (Default) Solid
vbDash      1      Dash
vbDot      2      Dot
vbDashDot      3      Dash-Dot
vbDashDotDot      4      Dash-Dot-Dot
vbInvisible      5      Transparent
vbInsideSolid      6      Inside Solid

0
 
swiltCommented:
Unfortunately the line is unbelivably thin and the DrawStyle is inopperative if the DrawWidth is > 1 so use the following code

Dim i As Integer

Printer.DrawStyle = vbDashDotDot
Printer.DrawWidth = 1
For i = 1 To 8
    Printer.Line (0, 50 + i)-(4000, 50 + i)
Next i
Printer.EndDoc

0
Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
gaAuthor Commented:
Is there no other way to solve this problem ??
0
 
swiltCommented:
What was the problem with my answer ? What sort of solution would you like ?
0
 
gaAuthor Commented:
Isn't there a single command wich draws the same! lines on any printer.
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.