Top-Themen

Aktuelle Themen (A bis Z)

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

Mitglied: ErzP

ErzP (Level 1) - Jetzt verbinden

03.04.2006, aktualisiert 03.08.2006, 8234 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
Outlook & Mail

Outlook Makro für anderen Drucker als Standard drucker

Frage von Wu3stenfuchsOutlook & Mail3 Kommentare

Hallo Zusammen, ich versuche ein Makro zu basteln welches mir automatisch aus Outlook Druckt. Jedoch muss ein anderer Drucker ...

Microsoft Office

Excel-Druck-Makro

gelöst Frage von MasterBaiterMicrosoft Office5 Kommentare

Hallo und frohes Neues. Folgende Situation: Excel 2010;Win7; Excel Sheet´s sollen im Querformat gedruckt werden, es lassen sich aber ...

Batch & Shell

Powershell PDF drucken auf verschiedene Drucker

gelöst Frage von ChrissssiBatch & Shell2 Kommentare

Hallo zusammen, Mein Problem ist das ich PDF Dateien habe die ich auf unterschiedliche Drucker automatisch drucken muss. Das ...

Windows Netzwerk

Alle Drucker in verschiedenen Netzen Abfragen

gelöst Frage von ChrisIOWindows Netzwerk4 Kommentare

Hey Gemeinde, ich überlege gerade wie man am besten alle Drucker in diversen Netzen abfragt. Ich möchte Hersteller, Modell, ...

Neue Wissensbeiträge
LAN, WAN, Wireless

UniFi - UAP Antenna Radiation Patterns - WLAN Ausstrahlungsmuster

Information von StefanKittel vor 1 StundeLAN, WAN, Wireless

Hallo, wer sich schon immer mal gefragt hat wie der Unterschied in den WLAN Access Points bei Unifi wirklich ...

Windows Userverwaltung

Passwortwechsel in der Domain bei Anmeldung erzwingen

Anleitung von Looser27 vor 11 StundenWindows Userverwaltung6 Kommentare

Nachdem es immer wieder User geschafft haben, sich während des laufenden Betriebes auszusperren, habe ich nach einer Möglichkeit gesucht, ...

Ausbildung

Linux-Ausstieg in Niedersachsen - Windows statt Bugfix

Information von StefanKittel vor 3 TagenAusbildung39 Kommentare

Sind ja nur Steuergelder

Speicherkarten

Neuer Speicherkartentyp - zunächst nur für Huawei-Smartphones (künftig auch für Notebooks u. Tablets?)

Tipp von VGem-e vor 5 TagenSpeicherkarten6 Kommentare

Servus, als ob das "Chaos" i.S. Speicherkarten noch nicht groß genug wäre?! Evtl. kommt dieser neue Kartentyp bald auch ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Passwortwechsel Zeitpunkt festlegen
gelöst Frage von Looser27Windows Userverwaltung32 Kommentare

Guten Morgen liebe Kolleginnen und Kollegen, da es eine Userin in meinem Urlaub geschafft hat, sich vom AD vollständig ...

Microsoft
Netzlaufwerksordner Berechtigungen Speichern unter aus Programmen
gelöst Frage von ITler7Microsoft19 Kommentare

Moin, bin in ein neues Unternehmen eingetreten und habe die Anforderung bekommen Berechtigungen auf einige Ordner anzupassen, da bisher ...

Windows Server
Probleme im AD am Außenstandort
gelöst Frage von emeriksWindows Server19 Kommentare

Hi, wir haben ein Problem mit AD und GPO am Außenstandort und ich stehe momentan mächtig auf dem Schlauch. ...

Flatrates
Geschwindikeitsprobleme zwischen 1 und 1 - Vodafone Heimnetz
Frage von muenchhausenFlatrates15 Kommentare

Moin erstmal, Vorweg mein Setup 1. Wohnsitz Vodafone 400K Leitung (kommt sogar komplett an, auch um 18 Uhr) 2. ...