- Код: Выделить всё
Dim xl As New Microsoft.Office.Interop.Excel.Application
Dim wb As Microsoft.Office.Interop.Excel.Workbook
Dim MyPath As String = Application.StartupPath
wb = xl.Workbooks.Add(MyPath & "/MaterialReport.xlr")
DirectCast(wb.Sheets(1), Microsoft.Office.Interop.Excel.Worksheet).PrintOut(From:=1, To:=1, Copies:=1, Preview:=True)
и так
- Код: Выделить всё
.........
wb.PrintPreview(True)
в любом случае программа зависает и думает, думает, думает ......
как объяснить электронному другу, что лист Excel надо вывести на предварительный просмотр печати?