Microsoft Excel

Herbers Excel/VBA-Archiv

Hardcopy aus anderer Anwendung einfügen

Betrifft: Hardcopy aus anderer Anwendung einfügen von: Werner Brauns
Geschrieben am: 17.04.2007 11:00:14

Hallo!
Ich will eine Hardcopy aus einer Nicht-Office-Anwendung in Excel ber VBA einfügen. Geht sowas?

Hiermit geht's offenbar nicht:

Sub Winja()
'
AppActivate ("Saperion Version 5.6")
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture

End Sub



Gruß und Danke!

Werner

  

Betrifft: AW: Hardcopy aus anderer Anwendung einfügen von: JürgenH
Geschrieben am: 17.04.2007 11:10:25

Hallo Werner,
warum VBA?
versuchs doch einfach mit diesem wunderbaren Freeware-Tool:
http://www.info.hardcopy.de/
Gruß
Jürgen


  

Betrifft: AW: Hardcopy aus anderer Anwendung einfügen von: Werner Brauns
Geschrieben am: 17.04.2007 11:19:56

Sieht gut aus, dass Programm.
Leider kann und darf ich nichts installieren.
Aber ich brauche ständig Hardcopys einer anderen Anwendung.

Gruß

Werner


  

Betrifft: AW: Hardcopy aus anderer Anwendung einfügen von: Werner Brauns
Geschrieben am: 17.04.2007 11:24:13

Sieht gut aus, dass Programm.
Leider kann und darf ich nichts installieren.
Aber ich brauche ständig Hardcopys einer anderen Anwendung.

Gruß

Werner


  

Betrifft: AW: Hardcopy aus anderer Anwendung einfügen von: Werner Brauns
Geschrieben am: 18.04.2007 07:49:44

Kann denn keiner helfen?

Gruß

Werner


  

Betrifft: AW: Hardcopy aus anderer Anwendung einfügen von: Heinz
Geschrieben am: 18.04.2007 15:11:45

Hi,

geht es nicht mit der Taste "Druck"(print)?

mfg Heinz


  

Betrifft: AW: Hardcopy aus anderer Anwendung einfügen von: Werner Brauns
Geschrieben am: 18.04.2007 15:16:02

Klar. Aber das muss ich ja alles von Hand machen.
Ich möchte, dass ich mit einem Makro eine Hardcopy einer anderen Anwendung in mein Arbeitsblatt kopiere. Also alles automatisch.

Gruß

Werner


  

Betrifft: AW: Hardcopy aus anderer Anwendung einfügen von: Heinz
Geschrieben am: 18.04.2007 17:12:33

Hi,

poste mal den Code, mit dem du die "andere Anwendung" öffnest und aktivierst.
Ich versuche den Code zu integrieren.

mfg Heinz


  

Betrifft: AW: Hardcopy aus anderer Anwendung einfügen von: Werner Brauns
Geschrieben am: 19.04.2007 06:58:36

Vielleicht habe ich nicht genau genug beschrieben was ich brauche. Damit tue ich mich immer schwer. ;-)

Also die andere Anwendung läuft schon.
Sie wird nicht erst von Excel aus geöffnet.
Aktivieren konnte ich sie hiermit: AppActivate ("Saperion Version 5.6")
Ich möchte in einer Excel-Datei einen Button einfügen, mit dem ich mir eine Hardcopy der bereits laufenden Anwendung holen und dann auch drucken kann.
Ich hoffe, dass ich nicht wieder was vergessen habe. ;-)

Gruß und Danke

Werner


  

Betrifft: AW: Hardcopy aus anderer Anwendung einfügen von: Heinz
Geschrieben am: 19.04.2007 22:40:20

Hi,

nun, dann brauchst du ja nur noch die API, um den screenshot via Tastensimulation zu erstellen.

Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Das benötigst du dafür.

mfg Heinz


  

Betrifft: AW: Hardcopy aus anderer Anwendung einfügen von: Werner Brauns
Geschrieben am: 26.04.2007 07:46:42

Irgendwas mache ich sicher falsch.
Jetzt klappt auch der Befehl AppActivate ("Saperion Version 5.6") nicht mehr.
Die Fremd-Anwendung kommt nicht in den Fordergrund.

So sieht mein mikriges Makro aus:

Sub test()
    AppActivate ("Saperion Version 5.6")
End Sub



Den Befehl hier kapiere ich gar nicht:
Declare

Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long,  _
ByVal dwExtraInfo As Long)

Wo trage ich das denn ein?

Gruß und Danke

Werner



 

Beiträge aus den Excel-Beispielen zum Thema "Hardcopy aus anderer Anwendung einfügen"