Пустые строки при экспорте отчета в текстовый файл

Joss

При экспорте отчета в текстовый файл у меня появляются пустые строки.
DoCmd.OutputTo acOutputReport, stDocName, acFormatTXT, stOutFile, False
10 ответов

Joss

Прошу прщения. Вместо кнопки просмотр, нажал "опубликовать". Продолжаю.Причем интересная структура.строка с даннымипустая строкастрока с даннымипустая строкастрока с даннымистрока с даннымипустая строкаи всё повторяется сначала. Можно ли как-то избавиться от пустых строк?


Joss

Что, ни у кого такого не бывало? Значит я первый! Смотрю отчет: все строки подряд. Смотрю экспорт - есть пустые.


Joss

При помощи чего смотрите экспорт?


Joss

При помощи всего. И в простом блокноте, и в AkelPad, и ListView, и Word с подсветкой служебных знаков.


Joss

OutputTo F1
...Tip If you output the data in a report to an output file and the columns and rows of data in the output file don't align as in the report, the following tips may help: You can size the controls by pointing to Size on the Format menu, and then clicking To Fit. You should avoid overlapping controls or placing controls too close together. You can align the controls on the report by pointing to Align on the Format menu, and then clicking the appropriate command. Controls that aren't aligned in the same row may be placed in separate rows in the output file, causing additional spacing. ...


Joss

Поборол только промежуточным преобразованием в RTF:Public Function RTFtoText(Docum As String)Dim wrd As Object Dim wrdNotRunning As Boolean On Error Resume NextSet wrd = GetObject(, "Word.Application")If Err.Number <> 0 Then wrdNotRunning = True Set wrd = CreateObject("Word.Application") wrd.Visible = False End If Err.Clearwrd.Documents.Open Docum Documents(Docum).ActivateWith wrd .Selection.Find.ClearFormatting .Selection.Find.Replacement.ClearFormattingWith .Selection.Find .Text = "^m" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With.Selection.Find.Execute Replace:=wdReplaceAll .ChangeFileOpenDirectory CurrentProject.Path & "\Gotovo\" .ActiveDocument.SaveAs FileName:=Replace(Replace(Docum, CurrentProject.Path & "\Gotovo\", ""), ".rtf", ".txt"), FileFormat:=wdFormatText .ActiveDocument.CloseKill CurrentProject.Path & "\Gotovo\*.rtf"MsgBox "Файл успешно преобразован!", vbInformation If wrdNotRunning = True Then .Application.Quit End IfEnd WithSet wrd = NothingEnd Function


Joss

Joss,А может в источнике данных (в таблицах) строки завершаются символом возврата корретки (enter)? Могли занести при вводе данных...


Joss

А если экспортировать не отчет, а запрос, на котором он построен?


Joss

Что, ни у кого такого не бывало? Значит я первый! Смотрю отчет: все строки подряд. Смотрю экспорт - есть пустые.
Наблюдал такое года 3 назад :)не разобрался - плюнула может просто контролы пересекаются?


Joss

Joss,а может дело в настройках принтера? что если поля в отчёте уменьшить в параметрах страницы?