Kan man skriva ut Excel dokument med hjälp av DDE eller vad ska man använda sig av? Här kommer ett exempel som jag hittade i Microsoft Automation 97 Help File: Skriva ut Excel dokument
Ge Gärna ett kodexempel.
/ PeterSv: Skriva ut Excel dokument
Glöm inte att sätta en referens till Microsoft Excel i Project, References och kryssa i "Microsoft Excel 8.0 Object Library"
Sub PrintXLSheet()
Dim xlBook As Excel.Workbook
Set xlBook = GetObject("C:\Sheet1.XLS")
With xlBook.Application
.Visible = True
.Windows(1).Visible = True
'Print out the active sheet in the workbook
.ActiveSheet.PrintOut
End With
'Prevents Microsoft Excel from prompting to save
'changes when closing
xlBook.Saved = True
'Exit Microsoft Excel and destroy the object variable
xlBook.Application.Quit
Set xlBook = Nothing
End Sub
/Curta