С този код:
Private Sub command2_click()
Dim strFieldSeparator
Dim i
Dim j
Dim x As String
Dim y As Integer
y = 50
strFieldSeparator = ""
Open "C:\Testfile.PRN" For Output As #1
x = MSFlexGrid1.TextMatrix(0, 2)
For i = 0 To MSFlexGrid1.Rows - 1
For j = 0 To MSFlexGrid1.Cols - 1
Write #1, MSFlexGrid1.TextMatrix(i, j);
Next j
Write #1,
Next i
Close
End Sub
СЕ ПОЛУЧАВА НЕЩО, НО НЕ ТОВА КОЕТО МИ ТРЯБВА
ЕТО ТОВА Е РЕЗУЛТАТА:
"№","PLU","Найменование","Р-р","Бр.","Цена","Сума",
"1","M07337","M07337 - Д-КИ ""REPLAY"" R13 С РОЗОВ КАНТ","xl","1","39","39",
"2","M07586","M07586 - ДЪНК . ЯКЕ 'IQ' 06/558","l","1","68","68",
"3","M07582","M07582 - ДЖИНСИ 'IQ' 02/1113","xxl","1","40","40",
"4","M07582","M07582 - ДЖИНСИ 'IQ' 02/1113","","1","40","40",
"5","M07582","M07582 - ДЖИНСИ 'IQ' 02/1113","","1","40","40",
КАК ДА НАКАРАМ ТЕЗИ КАВИЧКИ И ЗАПЕТАИ ДА НЕ ИЗЛИЗАТ И ВСЯКА КОЛОНА ЗА ЗАПОЧВА ОТ ТОЧНО ОПРЕДЕЛЕНА ПОЗИЦИЯ ВЪВ ФАЙЛА
|