Solved

Printing Flex Grid

Posted on 2004-03-31
5
528 Views
Last Modified: 2008-01-09
i wanna to print a taple from the type FGrid  the quistion is how can i print it in the wide of peaper ...."the gool of this to print the all taple elements"...and i wanna to print it alone i mean..that .i wanna to print the just the table...with out the else objects..
omar.
0
Comment
Question by:Omar_layous
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
5 Comments
 
LVL 53

Accepted Solution

by:
Dhaest earned 80 total points
ID: 10729791
Multiple possibilities
1)
Public Sub MSFlexGridPrint(gridQuery As Control)
   ' *** Print MSFlexGrid

   Dim I          As Integer
   Dim J          As Integer
   Dim PTab       As Integer

   For I = 1 To gridQuery.Rows - 1
      PTab = 20 'Set the first tab value
      'This checks to see if a page break is needed

      If Printer.CurrentY + Printer.TextHeight(gridQuery.Text) > Printer.ScaleHeight - 600 Then
         Printer.NewPage
      End If

      gridQuery.Row = I 'Set the active row

      For J = 0 To gridQuery.Cols - 1
         gridQuery.Col = J 'Set the current column
         
         'Send the field to the print line and add the tab.
         'Notice the semicolon at the end of the line.

         Printer.Print Trim$(gridQuery.Text); Tab(PTab);

         PTab = PTab + 20 'Increment the tab value
      Next

      'After each column has printed to the print line

      'a Printer.Print statement without a semicolon will
      'will send the line to the printer and start a new
      'one.
      Printer.Print
 Next

End Sub  

2)
MSFlexigrid1.TextMatrix(1,1) - this gives the content in the first row, first column. Likewise, when you put in a For Loop u can get the content in each cell. Further, for each row of data, you can append to a string and pass it to the printer object.

(Eg):

For Ctr = 1 to MSFlexigrid1.Rows - 1
 strcontent = MSFlexigrid1.TextMatrix(Ctr,1)
 strcontent = strcontent & MSFlexigrid1.TextMatrix(ctr,2)

' where 1 & 2 are the columns. Like wise you can continue to build the string for each row & finally print.

printer.print strcontent

Next

4) Export to an invisible excel and print
try this out!!

Public Sub FlexGrid_To_Excel(TheFlexgrid As MSFlexGrid, _
TheRows As Integer, TheCols As Integer, mode As Integer)
 
Dim objXL As New Excel.Application
Dim wbXL As New Excel.Workbook
Dim wsXL As New Excel.Worksheet
Dim intRow As Integer
Dim intCol As Integer

On Error Resume Next

' open Excel
If mode = 1 Then
  objXL.Visible = True
Else
  objXL.Visible = False
End If
Set wbXL = objXL.Workbooks.Add
Set wsXL = objXL.ActiveSheet

' this is to fill the worksheet
For intRow = 1 To TheRows
  For intCol = 1 To TheCols
      With TheFlexgrid
          wsXL.Cells(intRow, intCol).Value = _
             .TextMatrix(intRow - 1, intCol - 1) & " "
             wsXL.Columns(intCol).AutoFit
      End With
  Next
Next
If mode = 2 Then
  wsXL.PrintOut
End If
End Sub

5)
Here's a quick way to print a MSFlexGrid control's contents:
    Printer.PaintPicture MSFlexGrid_Name.Picture, 0, 0
  Printer.EndDoc

And if you want it to be the full length of the printer page add this before those two statements:
    Dim old_width as Integer
  MSFlexGrid_Name.width=printer.width

and this at the end:
     MSFlexGrid_Name.width=old_width
0
 
LVL 53

Expert Comment

by:Dhaest
ID: 11256754
My recommandation: answered by Dhaest
0

Featured Post

Salesforce Has Never Been Easier

Improve and reinforce salesforce training & adoption using WalkMe's digital adoption platform. Start saving on costly employee training by creating fast intuitive Walk-Thrus for Salesforce. Claim your Free Account Now

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction In a recent article (http://www.experts-exchange.com/A_7811-A-Better-Concatenate-Function.html) for the Excel community, I showed an improved version of the Excel Concatenate() function.  While writing that article I realized that no o…
If you have ever used Microsoft Word then you know that it has a good spell checker and it may have occurred to you that the ability to check spelling might be a nice piece of functionality to add to certain applications of yours. Well the code that…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

738 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question