MsFlexgrid на печать или в файл

[Alex12]

Уважаемые! как из таблицы MsFlexgrid вывести на печать содержимое таблицы, и засунуть его в фал *.тхт.

[Rainbow]

Можно сделать совсем по-простому:
есть метод у грида - Clip, который забирает все содержимое выделенных ячеек. Его и можно вывести на печать или в файл.

Код: Выделить всё

    'выделяем все содержимое грида
    MSFlexGrid1.Col = 1
    MSFlexGrid1.Row = 1
    MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
    MSFlexGrid1.RowSel = MSFlexGrid1.Rows - 1
   
    'забираем его и выводим в файл
    Open "c:\text.txt" For Output As #1
    Write #1, MSFlexGrid1.Clip
    Close #1


[gaidar]

Чтобы не возникло вопроса, на печать можно вывести открыв порт LPT1:

ff = FreeFile
Open LPT1 for Output as #ff
Print #ff, "Text"
Close #ff

Кстати, Write выводит строки в " ", Print - без.

[abs]

вот, нашел у себя, кажется когда-то из MSDN выдрал....

Код: Выделить всё

Dim BeginPage, EndPage, NumCopies, Orientation, i
   ' Set Cancel to True.
   CommonDialog1.CancelError = True
   On Error GoTo ErrHandler
   ' Display the Print dialog box.
   CommonDialog1.ShowPrinter
   On Error GoTo ErrHandler
   ' Get user-selected values from the dialog box.
   BeginPage = CommonDialog1.FromPage
   EndPage = CommonDialog1.ToPage
   NumCopies = CommonDialog1.Copies
   Orientation = CommonDialog1.Orientation
   For i = 1 To NumCopies
   ' Put code here to send data to your printer.
   Printer.PaintPicture MSFlexGrid1.Picture, Printer.Width / 25, Printer.Height / 25
   Printer.EndDoc
   Next
   Exit Sub
ErrHandler:
   ' User pressed Cancel button.
   Exit Sub