PHP User Warning: fetch_template() calls should be replaced by the vB_Template class. Template name: bbcode_highlight in ..../includes/functions.php on line 4197
[RESOLVED] printing msflexgrid-VBForums
Results 1 to 8 of 8

Thread: [RESOLVED] printing msflexgrid

Hybrid View

  1. #1

    Thread Starter
    Addicted Member
    Join Date
    Jul 2011
    Posts
    214

    Resolved [RESOLVED] printing msflexgrid

    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

  2. #2

  3. #3

    Thread Starter
    Addicted Member
    Join Date
    Jul 2011
    Posts
    214

    Re: printing msflexgrid

    vb Code:
    1. Private Sub Command4_Click()
    2. Dim j As Integer
    3. Dim k As Integer
    4. Dim m As Integer
    5. For m = 1 To i
    6. fxgSrc.Col = 4
    7. fxgSrc.Row = m
    8. fxgSrc.CellBackColor = vbWhite
    9. Next m
    10. fxgSrc.Visible = True
    11. fxgSrc.ColWidth(0) = 250
    12. fxgSrc.ColWidth(1) = 0
    13. fxgSrc.ColWidth(2) = 0
    14. fxgSrc.ColWidth(3) = 0
    15. fxgSrc.ColWidth(6) = 0
    16. fxgSrc.ColWidth(8) = 0
    17. fxgSrc.ColWidth(12) = 0
    18. fxgSrc.ColAlignment(4) = flexAlignCenterCenter
    19. fxgSrc.ColAlignment(5) = flexAlignCenterCenter
    20. fxgSrc.ColAlignment(7) = flexAlignCenterCenter
    21. fxgSrc.ColAlignment(9) = flexAlignCenterCenter
    22. fxgSrc.ColAlignment(10) = flexAlignCenterCenter
    23. fxgSrc.ColAlignment(11) = flexAlignCenterCenter
    24. fxgSrc.TextMatrix(0, 4) = " äÇã ßÇáÇ "
    25. fxgSrc.TextMatrix(0, 5) = " äÞØå ÓÝÇÑÔ "
    26. fxgSrc.TextMatrix(0, 7) = " æÇÍÏ ßÇáÇ "
    27. fxgSrc.TextMatrix(0, 9) = " ÞíãÊ ÝÑæÔ "
    28. fxgSrc.TextMatrix(0, 10) = " ÞíãÊ ÊÇãíä ßääÏå "
    29. fxgSrc.TextMatrix(0, 11) = " ãæÌæÏí ÏÑ ÏÓÊÑÓ "
    30. For j = 1 To i
    31. If fxgSrc.TextMatrix(j, 4) = "" Then
    32. fxgSrc.RowHeight(j) = 0
    33. End If
    34. Next j
    35. For k = 1 To i
    36. If fxgSrc.RowHeight(k) <> 0 And fxgSrc.TextMatrix(k, 11) = "0" Then
    37. fxgSrc.Col = 4
    38. fxgSrc.Row = k
    39. fxgSrc.CellBackColor = RGB(255, 0, 0)
    40. End If
    41. Next k
    42. End Sub

  4. #4

  5. #5

    Thread Starter
    Addicted Member
    Join Date
    Jul 2011
    Posts
    214

    Re: printing msflexgrid

    I used the same as this attachment
    Attached Files Attached Files

  6. #6

  7. #7

    Thread Starter
    Addicted Member
    Join Date
    Jul 2011
    Posts
    214

    Re: printing msflexgrid

    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

  8. #8

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Featured


Click Here to Expand Forum to Full Width