ник: alecks_lp
Исходные данные: xp SP3, Access 2003, клиент .mde, таблицы на server2000, объект табличная форма подгружается рекордсетом
Задача: вывод на печать строк(всех или выбранных) подчинённой формы
Решение: печать в Word
Проблема: если пользователь не выбрал ни одной строки, то попытка программно выделить все строки приводит к ошибке 2046 "Команда или макрокоманда (Выделить всё) в данное время недоступна"
Код :
Result = Me.subForm1.Form.SelHeight
If Result = 0 Then
'Если ни одной записи не выделено, попытаться напечатать все записи
' SendKeys "^a"
DoCmd.RunCommand acCmdSelectAll
If MsgBox("Напечатать все записи?", vbOKCancel, "") = vbCancel Then Exit Function
End If
DoCmd.RunCommand acCmdCopy
Set objWord = CreateObject("Word.Application")
objWord.Documents.Add DocumentType:=wdNewBlankDocument
Set objWindow = objWord.ActiveDocument.ActiveWindow
objWindow.Activate
objWindow.WindowState = wdWindowStateMaximize
objWord.WindowState = wdWindowStateMaximize
objWord.Selection.TypeText Text:="Список событий: "
objWord.Selection.TypeParagraph
objWord.Selection.PasteAndFormat (wdPasteDefault)
objWord.Visible = True
|
Стандартную кнопку меню "Выделить все" я на панель формы повесил и работает, но хотелось бы побороть vba.