Jump to content
Software FX Community

Chart doesn't print inside picture box


User (Legacy)
 Share

Recommended Posts

Hi,

I can really use some help here. There are a number of places that explain

how to print the contents

of a visual basic picturebox. I used some of the sample code provided and

makes sense. But to

my discovery I found that ChartFx control doesn't print.

The ChartFX control is placed inside the picture box along with some label

control arrays to tabulate

the data in the chart. The chart control and label controls are in the same

picturebox. The following code is used to print the content picture box.

Everything prints except the ChartFX control.

The following code copies the contents by painting the image from Picture3

picturebox control to a dummy picturebox control, Picture4.

Public Const WM_PAINT = &HF

Public Const WM_PRINT = &H317

Public Const PRF_CLIENT = &H4&

Public Const PRF_CHILDREN = &H10&

Public Const PRF_OWNED = &H20&

Public Declare Function SendMessage Lib "user32" Alias _

"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _

ByVal wParam As Long, ByVal lParam As Long) As Long

Public Declare Function GetDeviceCaps Lib "gdi32" _

(ByVal hdc As Long, ByVal nindex As Long) As Long

Private Sub Form_load()

Picture3.BorderStyle = NONE

Picture3.AutoRedraw = True

Picture4.AutoRedraw = True

Picture4.BorderStyle = NONE

Picture4.Visible = False

End Sub

Private Sub printBtn_Click()

Dim retval As Long, xmargin As Single, ymargin As Single

Dim x As Single, y As Single

Dim xsize As Single, ysize As Single

x = 1: y = 1

xsize = 6: ysize = 4.5

With Printer

.ScaleMode = vbInches

xmargin = GetDeviceCaps(.hdc, 112) 'PHYSICALOFFSETX

' Convert margin given in pixels to inches

xmargin = (xmargin * .TwipsPerPixelX) / 1440

' ymargin = GetDeviceCaps(.hdc, 113) 'PHYSICALOFFSETY

' Convert margin given in pixels to inches

ymargin = (ymargin * .TwipsPerPixelY) / 1440

Picture4.width = Picture3.width

Picture4.Height = Picture3.Height

DoEvents

Picture3.SetFocus

retval = SendMessage(Picture3.hwnd, WM_PAINT, Picture4.hdc, 0)

retval = SendMessage(Picture3.hwnd, WM_PRINT, Picture4.hdc,

PRF_CHILDREN + PRF_CLIENT + PRF_OWNED)

Picture4.Picture = Picture4.Image

Printer.Print ""

.PaintPicture Picture4.Picture, x - xmargin, y - ymargin, xsize,

ysize

.EndDoc

End With

End Sub

Why isn't ChartFX control part of Picture3?

Please HELP!

Mike

Link to comment
Share on other sites

This approach will not work with an ActiveX control, it only works with

simple controls (built-in controls).

We provide a method called Paint that allows you to draw the chart into a

Device Context, you must use this method instead of sending a WM_PAINT

message to the chart control.

--

FP

Software FX, Inc.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

×
×
  • Create New...