enregistrer et imprimer le contenu d'un MSFlexGrid

Question

Bonjour,
J'ai des problèmes pour enregistrer en format text une form contenant des labels et surtout une MSFlexGrid et d'imprimer le contenu de cette Form.
C'est assez urgent.
Je vous remercie par avance.
Amicalement
MELISA :big)

Ricpperso · Answer

Salut,

a tu résolu ce prob, car moi j'ai le même

@+
Rich@rd, 
rich@rd@basicsoft.fr.st
B@sicsoft.fr.st, www.basicsoft.fr.st

labynocle · Answer

J'ai exactement le meme soucis... pour enregistrer la msflexgrid je l ai fait dans une richtextbox et j enregistre son contenu dans un .doc ou .txt....

mais pour imprimer g pense a copier le grid dans un autre form et imprimer ce new form mais c assez lourd a faire doit y avoir plus simple...

merci d avance
++

Newbi

Ricpperso · Answer

pour enregistrer , j'ai fasi une boucle, avec les description de chaque cellule (par exemple, je mets le texte, puis jemets la police puis la taille puis le charformat (si tu connais le C++ tu sais, sinon c'est pour formater le texte), pour imprimmer, rien de plus simple, tu utilise Printer.print format(flexgird.picture) (le ocde ressemble à ça.

POur enregistré, tu  fais un boucle, si tu veux, donne moi ton maile, et je te passe les ocde
@+
Rich@rd, 
rich@rd@basicsoft.fr.st
B@sicsoft.fr.st, www.basicsoft.fr.st

labynocle · Answer

bah pour imprimer ayez g reussi merci de ton aide....

ceci dit pour enregistrer g pas bien suivi ton explikation... grace a ta methode tu dis ke tu peux exactement sauvegarder une flexgrid sans bidouiller comme je l ai fait ? :D

++

Newbi

Ricpperso · Answer

oui,
en fiat, grâce à un eboucle, tu imprime dans un fichier à la suite chaque contenue des cellules, puis si tu vuex tu peux faire aprés imprimer le nom de la police utilisé pour chaque cellule, ainsiq ue la taille, la mise en format, ect ...

@+
Rich@rd, 
rich@rd@basicsoft.fr.st
B@sicsoft.fr.st, www.basicsoft.fr.st

yaglak · Answer

'Coller ce code 
Dim grid As MSHFlexGrid
Dim therows As Integer
Dim thecols As Integer
Dim gridstyle As Integer
Dim xlapp As New Excel.Application
Dim wbxl As Excel.Workbook
Dim wsxl As Excel.Worksheet
Dim introw As Integer 'counter
Dim intcol As Integer 'counter

   Public Sub FlexGrid_To_Excel(TheFlexgrid As MSFlexGrid, therows As Integer, thecols As Integer, _
  Optional gridstyle As Integer = 1, Optional WorkSheetName _
  As String)

Private Sub Command4_Click()
Dim objXL As New Excel.Application
'Dim wbXL As New Excel.Workbook
Dim wsxl As New Excel.Worksheet
'Dim intRow As Integer ' counter
'Dim intCol As Integer ' counter
'***************************positions


'If Not IsObject(objXL) Then
   ' MsgBox "You need to have Microsoft Excel installed to use this function", _
    '   vbExclamation, "Haresoftware - Export to Excel Function"
   ' Exit Sub
'End If

'On Error Resume Next is necessary because
'someone may pass more rows
'or columns than the flexgrid has

On Error Resume Next

' Open Excel
objXL.Visible = True
Set wbxl = objXL.Workbooks.Add
Set wsxl = objXL.ActiveSheet

' name the worksheet
'''With wsXL
  '''  If Not WorkSheetName = "" Then
      ''  .Name = WorkSheetName
''    End If
''End With
     
' fill worksheet
'''For intRow = 1 To TheRows
   ''' For intCol = 1 To TheCols
       ''' With TheFlexgrid
         ''   wsXL.Cells(intRow, intCol).Value = _
           '''    .TextMatrix(intRow - 1, intCol - 1) & " "
      '''  End With
    '''Next
'''Next

' format the look
'***For intCol = 1 To TheCols
   '*** wsXL.Columns(intCol).AutoFit
    'wsXL.Columns(intCol).AutoFormat (1)
  '***  wsXL.Range("a1", Right(wsXL.Columns(TheCols).AddressLocal, 1) & TheRows).AutoFormat GridStyle
'***Next

' Bob's your Uncle!
'*******************************code2
If Not IsObject(xlapp) Then
        MsgBox "You need Microsoft Excel to use this function", _
        vbExclamation, "Print to Excel"
    Exit Sub
End If

On Error Resume Next

'Open Excel
'*******Set xlapp = GetObject(, "Excel.Application")
'*******xlapp.Visible = True
'*******Set wbxl = xlapp.Workbooks.Open("C:\Path To Template File.xls")
'*******Set wsxl = wbxl.Worksheets(1)

'Fill spreadsheet
For introw = 2 To MSHFlexGrid1.Rows
For intcol = 1 To MSHFlexGrid1.Cols
wsxl.Cells(introw + 1, intcol - 1).Value = _
MSHFlexGrid1.TextMatrix(introw - 1, intcol - 1) & " "

Next
Next

End Sub

cs_ariane2005 · Answer

Bonjours Mrs
 j'ai des probl&#232;mes pour enregistrer les contenus d'un MSFlexgrid &#233;crivable , j'ai cr&#233;e une base de donn&#233;es Access et j'aimerais que &#224; partir du flexgrid &#233;crivable je puisse enregistrer mes donn&#233;es dans Access. j'aimerais avoir les codes sources.

  Merci.

koubaa2211 · Answer

salut 
svp  s'il est possible de m'aider j'ai un probleme concernant MSFlexGrid
je sais pas comment enregistrer a partir de cette grille et merci d'avance

koubaa2211 · Answer

salut 
svp  s'il est possible de m'aider j'ai un probleme concernant MSFlexGrid
je sais pas comment enregistrer a partir de cette grille et merci d'avance

ananapster · Answer

c bien

Enregistrer et imprimer le contenu d'un MSFlexGrid

10 réponses

Discussions similaires