Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Makro für druck über verschiedene Papiereinzüge

Frage Microsoft Microsoft Office

Mitglied: ErzP

ErzP (Level 1) - Jetzt verbinden

03.04.2006, aktualisiert 03.08.2006, 7894 Aufrufe, 3 Kommentare

Ich würde gerne für mehrer abteilungen in meiner Firma in der Symbolleiste in Excel Buttons erstellen mit denen Makros ausgefürt werden. Ich habe bereitz ein Makro für Word mit denen man mit einem klick auf verschiedenen Druckern im Netzwerk getruckt werden kann und je nach Makro entweder Papierschacht 1 oder 2 genutz werden (Papierschacht 1: Normales Papier, Schcht 2: Logo der Firma usw.). Wenn ich diese Makros in aber in Excel (2002 bis 97) einfüge bekomme ich von Virtual Basic die Meldung "Laufzeitfehler '424' Objekt erforderlich". Meine Makros sehen so aus:

Sub papiermitlogo()
'


With ActiveDocument.PageSetup
.Orientation = wdOrientPortrait
.FirstPageTray = wdPrinterLowerBin
.OtherPagesTray = wdPrinterLowerBin
End With
ActivePrinter = "\\a321de11\PDE321-000051"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False
With ActiveDocument.PageSetup
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
End With
End Sub

Sub normalpapier()


With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.FirstPageTray = wdPrinterLargeCapacityBin
.OtherPagesTray = wdPrinterLargeCapacityBin
End With
ActivePrinter = "\\a321de11\PDE321-000051"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
End With
End Sub


Ein ehemaliger Kollege hat dieses Makro erstellt, ich selber kenne mich mit Virtual Basic nicht aus...
Währe nett wenn mir jemand helfen könnte.

Ich danke im voraus für eure Antworten!
Mitglied: Nebuchadneza
04.04.2006 um 09:10 Uhr
geht es nur um die schachtansteuerung ????

was nutzt ihr für drucker ? bei kyocera kann man das alles z.b. über prescribe händeln, dürfte einfacher sein

MfG

B.Böcherer
Bitte warten ..
Mitglied: ErzP
04.04.2006 um 14:10 Uhr
Es geht nur darum mit einem Makro von Schacht 1 und mit dem anderen Makro von Schacht 2 drucken zu lassen. 3 Drucker alle von HP, davon 2 InkJet 1200(glaub ich) und ein LaserJet. Alles Netzwerkdrucker.

Ich bin für jede Überlegung dankbar!

Philipp Erz
Bitte warten ..
Mitglied: Hatl
03.08.2006 um 15:28 Uhr
Fals das Problem noch aktuell ist hilft villeicht das:
VBA Papierschacht mit Makro
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Anpassungsdatei verschiedene Parameter (Hostname, SQL, Registry) ändern (3)

Frage von MiMa89 zum Thema VB for Applications ...

Drucker und Scanner
Etikett druck umdrehen (1)

Frage von TechnoX zum Thema Drucker und Scanner ...

VB for Applications
Excel Makro zum Suchen von Spalten und exportieren in CSV (3)

Frage von Raptox zum Thema VB for Applications ...

Microsoft Office
gelöst Excel Makro zum Sortieren von Spalten an größeres Dokument Anpassen (2)

Frage von Rolfor zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Verschlüsselung & Zertifikate
gelöst Festplattenverschlüsselung im Ausland (13)

Frage von Nicolaas zum Thema Verschlüsselung & Zertifikate ...

Windows Server
gelöst Microsoft-Lizenz CALs und passendes Server-Betriebssystem (12)

Frage von planetIT2016 zum Thema Windows Server ...

Festplatten, SSD, Raid
gelöst Fehlerhafte Blöcke im RAID 10 (12)

Frage von Kojak-LE zum Thema Festplatten, SSD, Raid ...

Netzwerkgrundlagen
gelöst Cisco SG500 Series LAG hat sich von selbst umgestellt (11)

Frage von Ex0r2k16 zum Thema Netzwerkgrundlagen ...