OLE-Objekte drucken
29.07.2002 18:02:32
konrad
Folgendes Problem:
ich habe Word-Dateien (die länger sind, als das, was angezeigt wird), GIF-Bilder und andere xls-Charts als OLE-Objekte eingebunden. Nachdem der User auf den Druckbutton geklickt hat, sollen zuerst die kompletten OLE-Objekte ausgedruckt werden und dann das eigentliche Excel-Sheet.
Bisher habe ich folgendes zusammen bekommen:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim i As Integer
'For i = 1 To Tabelle1.OLEObjects.Count
Tabelle1.OLEObjects.PrintObject = True
'Next
End Sub
Funktioniert aber gar nicht. Durch Verlängerung des Druckbereichs würde ich zwar schaffen, dass er mir die Ansicht, wie sie im Excel ist, druckt, allerdings würde der Rest des Worddokuments einfach unterschlagen.
Vielleicht weiss ja jemand was....
Grüße
Konrad