Ole-Elemente Drucken

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen

Ich versuche über ein Access-Formular OLE-Elemente direckt auszudrucken. Hierzu verwende ich folgenden VBA-Code. Bei Excel und bei Word-OLE’s funktioniert das Ganze einwandfrei. Beim Versuch eine Powerpoint auszudrucken erscheint immer die Fehlermeldung „Object unterstützt diese Methode oder Eigenschaft nicht“ Wer kann mir hier weiterhelfen?

Gruß und danke

Code
Private Sub Befehl5_Click()
On Error GoTo Err_Befehl5_Click

Dim obj As Object

Set obj = Me!OleFeld.Object

'für Excel
'obj.activesheet.PrintOut

'für Word
'obj.activewindow.PrintOut False

'für PowerPoint
obj.ActivePresentation.PrintOut False

DoEvents
obj.Close

Set obj = Nothing

Exit_Befehl5_Click:
Exit Sub

Err_Befehl5_Click:
MsgBox Err.Description
Resume Exit_Befehl5_Click

End Sub

#2

Ich versuche über ein Access-Formular OLE-Elemente direckt
auszudrucken. Hierzu verwende ich folgenden VBA-Code. Bei
Excel und bei Word-OLE’s funktioniert das Ganze einwandfrei.
Beim Versuch eine Powerpoint auszudrucken erscheint immer die
Fehlermeldung „Object unterstützt diese Methode oder
Eigenschaft nicht“ Wer kann mir hier weiterhelfen?

Hallo Joy,

immer die Version angeben.

Kann der Verweis auf Powerpoint fehlen?

In welcher Codezeile kommt die Meldung?

Unten die Resume-Zeile kannste weglassen.

Hilft das weiter:

http://www.meinews.net/drucken-t516627.html

Gruß
Reinhard

#3

Hallo Reinhard

Der Verweis ist unter ADD-ins/Verweise „Microsoft PowerPoint 11.0 Object library“ eingetragen, bzw hir ist ein Häkchen gesetzt.

Nach dem Verlassen der Zeile „activePresentation.PrintOut“ wird der Fehler ausgegeben

Gruß und vielen Dank: Samea-Joy

#4

Nach dem Verlassen der Zeile „activePresentation.PrintOut“
wird der Fehler ausgegeben

Hallo Samea-Joy,

„Nach dem Verlassen“?
Normal markiert der Debugger die fehlerhafte Zeile, dann ist sie ja grad nicht verlassen worden.

Bastle mal eine Beispiel Access datei wo du eine PP-Application eingebunden hast und lade mal die PP- und die Accessdatei hoch mit rapidshare, siehe FAQ:2606

Und, Ahnung von Access- oder PP Vba habe ich keine, also bin ich optimal geeignet dir zu helfen :smile:

Aber manchmal findet auch ein blindes Huhn zum Korn…

Gruß
Reinhard

#5

Hallo Samea-Joy,

es nützt keinem was wenn du die Dateien nur hochgeladen hast, nach dem Hochladen werden dir Links angezeigt, diese mußt du hier zeigen.

Gruß
Reinhard

#6

Hallo Reinhard

Hier der Link der hochgeladenen Access-Datei.

Danke und Gruß: Samea-Joy

#7

Hallo
Sorry der Link
http://rapidshare.com/files/364182603/db1.mdb.html

#8

Hallo
Sorry der Link
http://rapidshare.com/files/364182603/db1.mdb.html

Hallo Samea-Joy,

Private Sub Befehl1\_Click()
On Error GoTo Err\_Befehl1\_Click
Dim obj As Object
Set obj = Me!OleFeld.Object
'für Excel
'obj.activesheet.PrintOut
'für Word
'obj.activewindow.PrintOut False
'für PowerPoint
obj.PrintOut
DoEvents
obj.Close
Set obj = Nothing
Err\_Befehl1\_Click:
If Err.Number 0 Then
 MsgBox Err.Description
End If
End Sub

Gruß
Reinhard