Printing a graph

I am using Pinnacle-BPS Graph Control. In the properties, I can either Copy, Print or Write. The Copy and Write actions work fine - but it does not print. The screen gives a quick flick as though something is happening, but does not print.

I know I can print using FormPrint, but I should be able to get better resoultion using the control (as they say) and it should work!  Any suggestions?
Who is Participating?
csameer1Connect With a Mentor Commented:
i have not used that control before.

For charting may i suggest teechart control from,you dont need to code for print preview,print,save,recall etc

Another method i have used before (mscharts if i remember right)is copying the chart onto the clipboard and PaintPicture it onto the printer or image/pic controls to printer.
Haven't this control, so some common advices:
Try to initialize printer before printing:
Printer.Print ""
Which parameters do you pass to Print method?
WicksyAuthor Commented:
Printer.Print "" has made no difference. To make the graph print, one sets the DRAWMODE=5 and that's it. To copy to the clipboard, DRAWMODE is set to 4 (and this works fine).
The new generation of project management tools

With’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.


i've used the Pinnacle-BPS Graph Control and never recall having had any problems.  this code seemed to work ok.

' set paper orientation
Printer.Orientation = vbPRORLandscape
printer.FontTransparent = False
Printer.Font = ""
Printer.ScaleMode = Twips
' print info for control
frmFTMain.graphFractures.PrintInfo(1) = Printer.hDC
frmFTMain.graphFractures.PrintInfo(6) = Printer.ScaleLeft
frmFTMain.graphFractures.PrintInfo(7) = Printer.ScaleTop
frmFTMain.graphFractures.PrintInfo(8) = Printer.ScaleWidth
frmFTMain.graphFractures.PrintInfo(9) = Printer.ScaleHeight
frmFTMain.graphFractures.PrintInfo(2) = 1.25 * 1440             ' x coord top left of graph
frmFTMain.graphFractures.PrintInfo(3) = 1.75 * 1440             ' y coord top left of graph
frmFTMain.graphFractures.PrintInfo(4) = 8 * 1440                ' graph width
frmFTMain.graphFractures.PrintInfo(5) = 6 * 1440                ' graph height
' print mode
If gColorPrintMode = False Then
frmFTMain.graphFractures.PrintStyle = G_MONO                 ' 0
frmFTMain.graphFractures.PrintStyle = G_COLOR                ' 1
End If
' setup fonts
frmFTMain.graphFractures.FontUse = 0
frmFTMain.graphFractures.FontSize = 75
frmFTMain.graphFractures.FontUse = 1
frmFTMain.graphFractures.FontSize = 50
frmFTMain.graphFractures.FontUse = 2
frmFTMain.graphFractures.FontSize = 50
frmFTMain.graphFractures.FontUse = 3
frmFTMain.graphFractures.FontSize = 50
' send graph
frmFTMain.graphFractures.DrawMode = G_PRINT                     ' 5

good luck
WicksyAuthor Commented:
Answer accepted
WicksyAuthor Commented:
Thanks for your help everyone, I think the problem was in the control. I managed to get an upgrade and this fixed the problem ....!
All Courses

From novice to tech pro — start learning today.