У меня в Vb сделана программа, которая печатает бланк с помощью excel, вот модуль:
- Код: Выделить всё
Sub pech()
Screen.MousePointer = vbHourglass
Set objExcel = New Excel.Application
objExcel.SheetsInNewWorkbook = 1
objExcel.Workbooks.Add
.......
.....' здесь идет построение бланка с помощью VBA
.......
Screen.MousePointer = vbDefault
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Close SaveChanges:=False
Set objExcel = Nothing
первый раз печать проходит, второй раз выдает ошибки
приходится прогу перезапускать и опять такая же картина.
