[RESOLVED] printing msflexgrid

[hooman59]

hi friends is there a way to print msflexgrid in a way that is shown on screen?

(let me explain more,what I mean is I have some pieces of codes for printing msflexgrid and the work but the problem is;in my forms in many lines I have

if ......
.... .width=0
end if

and the same for columns,in order to make rows and columns of flexgrid invisible)

but when I print, invisible rows and columns appear,I want exactly a print of what is shown on screen.




thank you so much

looking forward for your valuable ideas

[RhinoBull]

but when I print, invisible rows and columns appear,I want exactly a print of what is shown on screen.

Can you show your actual code?

[hooman59]

Private Sub Command4_Click()
Dim j As Integer
Dim k As Integer
Dim m As Integer
For m = 1 To i
fxgSrc.Col = 4
fxgSrc.Row = m
fxgSrc.CellBackColor = vbWhite
Next m
fxgSrc.Visible = True
fxgSrc.ColWidth(0) = 250
fxgSrc.ColWidth(1) = 0
fxgSrc.ColWidth(2) = 0
fxgSrc.ColWidth(3) = 0
fxgSrc.ColWidth(6) = 0
fxgSrc.ColWidth(8) = 0
fxgSrc.ColWidth(12) = 0
fxgSrc.ColAlignment(4) = flexAlignCenterCenter
fxgSrc.ColAlignment(5) = flexAlignCenterCenter
fxgSrc.ColAlignment(7) = flexAlignCenterCenter
fxgSrc.ColAlignment(9) = flexAlignCenterCenter
fxgSrc.ColAlignment(10) = flexAlignCenterCenter
fxgSrc.ColAlignment(11) = flexAlignCenterCenter
fxgSrc.TextMatrix(0, 4) = " äÇã ßÇáÇ "
fxgSrc.TextMatrix(0, 5) = " äÞØå ÓÝÇÑÔ "
fxgSrc.TextMatrix(0, 7) = " æÇÍÏ ßÇáÇ "
fxgSrc.TextMatrix(0, 9) = " ÞíãÊ ÝÑæÔ "
fxgSrc.TextMatrix(0, 10) = " ÞíãÊ ÊÇãíä ßääÏå "
fxgSrc.TextMatrix(0, 11) = " ãæÌæÏí ÏÑ ÏÓÊÑÓ "
For j = 1 To i
If fxgSrc.TextMatrix(j, 4) = "" Then
fxgSrc.RowHeight(j) = 0
End If
Next j
For k = 1 To i
If fxgSrc.RowHeight(k) <> 0 And fxgSrc.TextMatrix(k, 11) = "0" Then
fxgSrc.Col = 4
fxgSrc.Row = k
fxgSrc.CellBackColor = RGB(255, 0, 0)
End If
Next k
End Sub

[RhinoBull]

That code doesn't print your grid unless I'm missing something...

[hooman59]

I used the same as this attachment

[RhinoBull]

I would really prefer if you post code (printing only) directly here. Thanks.

[hooman59]

it comes with a module and a classmodule

I appriciate if you have a look at

http://www.planet-source-code.com/vb...10312&lngWId=1

[RhinoBull]

I think for what you need it's overkill. Take a look at this sample.
It's much simpler and will be easier to modify - in your case all you need is check for col/row width: print only if it's <> 0.