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

gelöst Liste von Dateien ausdrucken (verschiedene Drucker ansteuern)

Mitglied: Hai-Eck

Hai-Eck (Level 1) - Jetzt verbinden

29.01.2007, aktualisiert 01.02.2007, 9544 Aufrufe, 6 Kommentare

Hallo alle!

Ich habe ein excel-vba-file, welches mir Dateien ausdruckt!

In den Zellen A2 bis Ax befinden sich die Dateinamen samt zugehöriger Pfad
In den Zellen B2 bis Bn befindet sich das Format (A3 oder A4) - je nach dem sollte dann der passende Drucker reagieren.

Folgende Probleme haben sich eingestellt:
1) es druckt mir IMMER auf meinem STANDARDDRUCKER aus!
2) die Dateien werden in chaotischer Reihenfolge gedruckt

ich hab schon viel herumprobiert, irgendwie ist bei mir da der Wurm drinnen!

Hoffentlich könnt Ihr mir helfen!

Danke vorab!
ciao ciao
Markus

PS: bin VBA-Voll-Anfänger, das Programm habe ich nicht ganz alleine erstellt

hier das Hauptprogramm:

Option Explicit

Sub Haupt()
Dim ws As Worksheet
Dim pdf As String
Dim format As String
Dim zeile As Long

Set ws = ThisWorkbook.Worksheets(1)
ws.Columns("C").ClearContents
zeile = 2
Do Until IsEmpty(ws.Cells(zeile, "A"))
format = ws.Cells(zeile, "B")
pdf = ws.Cells(zeile, "A")
If Dir(pdf) <> "" Then

If format = "A4" Then
Application.ActivePrinter = "Minolta PagePro 20 auf \\Nthajek\kb_mpp20"
PDF_Datei_drucken datei:=pdf
End If

If format = "A3" Then
Application.ActivePrinter = "Minolta PagePro 20 (A3) auf \\Nthajek\kb_mpp20"
PDF_Datei_drucken datei:=pdf
End If

Else
ws.Cells(zeile, "C") = "NV"
End If
zeile = zeile + 1
Loop
End Sub

Erklärung: Minolta PagePro 20 auf \\Nthajek\kb_mpp20
Ich habe per Makro einen Druckauftrag aufgezeichnet und dann hat er mir diese Syntax ausgespuckt!!

hier die Druck-Prozedur:

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long _
) As Long

Sub PDF_Datei_drucken(datei As String)
ShellExecute 0&, "print", datei, vbNullString, vbNullString, vbNormalFocus
End Sub
Mitglied: bastla
29.01.2007 um 20:12 Uhr
Hallo Hai-Eck!

Zu Problem 1)
Die Anweisung "Application.ActivePrinter" legt für die "Applikation" Excel einen Drucker fest - Dein Druck erfolgt aber über das Betriebssystem (vereinfacht gesagt simulierst Du einen Klick auf das Explorerkontextmenü "Drucken" einer Datei) - daher die Verwendung des Standarddruckers.

Bevor ich mich mit Problem 2) befasse, noch eine Frage: Warum verwendest Du Excel für diese Aufgabe? Neulich hatten wir etwas Ähnliches für Word-Dateien (Lösungsansatz siehe hier) - das könnte vielleicht auch für Dich passen ...

Grüße
bastla
Bitte warten ..
Mitglied: Hai-Eck
30.01.2007 um 17:05 Uhr
Hi Bastla,

Danke für die Antwort!
sodala ... ich hab mir den word-LINK mal angesehen ... verstehe aber meist nur bahnhof

warum excel?
Output = in Excel-Form
abhängig vom Format, sollte ich diese (ca. 50 Dokumente bzw. PDF-Dateien) an verschiedene Drucker senden.


Danke im voraus!
Markus
Bitte warten ..
Mitglied: bastla
30.01.2007 um 21:48 Uhr
Hallo Hai-Eck!

Das "Bahnhofs"-Script dient dazu, alle Word-Dateien eines Ordners (vorgegeben war: einer Diskette) auszudrucken - für Dich würde das bedeuten, einfach alle Dateien, die mit einem bestimmten Drucker gedruckt werden sollen, in einem Ordner zu sammeln und den ganzen Ordner drucken zu lassen - die einzig erforderliche Anpassung wäre, nicht auf den Dateityp ".doc" zu prüfen.

Output = in Excel-Form
Leider verstehe ich nicht, was Du damit meinst , aber egal: Dein oben gepostetes Script müsste eigentlich nur den Standarddrucker neu setzen, dann sollte der Ausdruck klappen. Versuch dazu folgendes Unterprogramm:
01.
Sub SetStandardPrinter(strPrinterName As String) 
02.
Dim objScriptingNetwork As Object 
03.
 
04.
Set objScriptingNetwork = CreateObject("WScript.Network") 
05.
objScriptingNetwork.SetDefaultPrinter strPrinterName 
06.
 
07.
Set objScriptingNetwork = Nothing 
08.
End Sub
Im Programmcode wäre dann die Zeile
01.
Application.ActivePrinter = "Minolta PagePro 20 auf \\Nthajek\kb_mpp20"
zu ersetzen durch
01.
 <b>SetStandardPrinter</b> "Minolta PagePro 20 auf \\Nthajek\kb_mpp20"
(natürlich auch für die A3-Variante). Am Ende (nach Loop) könntest Du mit einer weiteren "SetStandardPrinter"-Anweisung dafür sorgen, dass für andere Anwendungen wieder der richtige Drucker eingestellt wird.

HTH
bastla
Bitte warten ..
Mitglied: Hai-Eck
31.01.2007 um 15:16 Uhr
hai Bastla!!

WAAAHNSINN!!
endlich!

ich bin da schon wirklich sehr lange dran ...
und hab schon einige Foren verrückt gemacht mit dieser Sache!

lange Rede - kurzer Sinn: hat geklappt - yeah!!

output=excelform meint sich:
als input für diese Druck-Aktion bekomme ich die Daten immer in Excel-Form, drum.


wenn du mir die 2te Sache auch noch hinkriegst, dann schmeiß ich doch tatsächlich wider Erwarten meinen Drucker doch nicht aus dem Fenster ...
... ich war schon oft knapp davor!
;)


Danke
ciao
Markus
Bitte warten ..
Mitglied: bastla
31.01.2007 um 15:39 Uhr
Hallo Hai-Eck!

hat geklappt - yeah!!
My pleasure (hat eh ein wenig gedauert) ...

Mit "zweite Sache" meinst Du die Reihenfolge? Leider weiß ich darüber noch gar nix (außer, dass diese eher "unkonventionell" zu sein scheint ).

Vielleicht kannst Du ja vor dem Drucken die Dateililste nach dem zu verwendenden Drucker vorsortieren - also alle A4-Drucke zuerst, danach jene für Format A3. Um es reproduzierbar zu machen, könntest Du vor dem Sortieren in einer freien Spalte noch eine laufende Nummer eintragen, um innerhalb der Formate die Reihenfolge beibehalten bzw zur ursprünglichen Reihung zurückkehren zu können (indem Du nach dieser Nummer sortierst).

Das Script arbeitet eigentlich die Liste brav vom ersten bis zum letzten Eintrag durch. Was siehst Du eigentlich in der Druckerwarteschlange?

Grüße
bastla

P.S.:
dann schmeiß ich doch tatsächlich wider Erwarten meinen Drucker doch nicht aus dem Fenster ...
Contenance - an der Hardware sollte es ja nicht liegen, und denk an die Unannehmlichkeiten mit der/dem / für die/den Passantin/Passanten, die/den Du dabei vielleicht getroffen hättest ...
Bitte warten ..
Mitglied: Hai-Eck
01.02.2007 um 17:05 Uhr
Hi Bastla,

1) überredet! Drucker bleibt drinnen

2)
die Möglichkeit A4/A3 zu trennen hab ich sicher, es handelt sich aber um ein und den selben Drucker (nur Format/Blattgröße verändert) und ich will die Dokumente nachher nicht mehr sortieren.

ich hab 2 Feldversuche gestartet, mit jeweils anderen Spool-Einstellungen
hier das Ergebnis:

Größe: Dateigröße in KB
Soll: Sollreihenfolge
Ist1: Istreihenfolge (Spooleinstellungen: Druckaufträge in Warteschlange stellen)
Ist2: Istreihenfolge (Spooleinstellungen: Druckaufträge an Drucker leiten)

Größe -> Soll -> Ist1 -> Ist2
52 -> 1 -> 1 -> 1
121 -> 2 -> 4 -> 5
54 -> 3 -> 3 -> 12
31 -> 4 -> 2 -> 3
88 -> 5 -> 8 -> 10
49 -> 6 -> 7 -> 11
103 -> 7 -> 6 -> 6
61 -> 8 -> 5 -> 2
47 -> 9 -> 12 -> 7
46 -> 10 -> 11 -> 9
145 -> 11 -> 10 -> 8
44 -> 12 -> 9 -> 4

in der Warteschlange ist ca. genau dieses Chaos dann auch ersichtlich ...


Vielleicht sollte man eine Zeitverzögerung einbauen? solche Druckaktionen werden eh nach Feierabend gestartet ...
oder, noch besser: so per handshake-befehl?
wenn drucker zu drucken beginnt, dann meldung ins excel
im excel: do nothing until meldung, dann erst nächster druckbefehl!


Danke im voraus!!
Markus
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Dateien aus einer Liste anhand verschiedener Parameter kopieren

gelöst Frage von gnumpf21Batch & Shell6 Kommentare

Hallo zusammen, ich habe folgende Herausforderung, und finde da leider keine Lösung Es gibt eine .txt-Datei (projekt.txt) mit eindeutigen ...

Microsoft Office

Excel Datei automatisch , jede Woche , an bestimmten Drucker ausdrucken.

gelöst Frage von tomigunMicrosoft Office7 Kommentare

Servus und Hallo , Thomas hier . Und zwar stehe ich vor dem Problem (als kompletter VBA Laie) , ...

Windows Netzwerk

Ausdrucke wechseln den Drucker

gelöst Frage von hesperWindows Netzwerk21 Kommentare

Schönen Tach zusammen! Kollegin besuchte mich vorher eben und meint, sie hat ein Problem mit den Druckern. Nicht sie ...

C und C++

C-sharp List verschiedene Bedingungen

Frage von YanmaiC und C++5 Kommentare

Hallo liebe Administratoren, ich habe eine Liste vom Typ eines Objektes. Diese Liste wird (de)serialisiert, um die Daten zu ...

Neue Wissensbeiträge
Erkennung und -Abwehr
Trendmicro WFBS 10 ist in deutsch verfügbar!
Tipp von VGem-e vor 8 StundenErkennung und -Abwehr

Servus Kollegen, downloadbar unter

Windows Update

Microsoft Patchday Juni 2018 - BSOD, obwohl noch kein Patch freigegeben

Erfahrungsbericht von diemilz vor 9 StundenWindows Update4 Kommentare

Hallo zusammen, wir hatten hier letzte Woche ein massives Problem. Alles begann damit, dass ein Mitarbeiter kurz vor Feierabend ...

Microsoft
Shadow Defender
Tipp von Hyrule vor 20 StundenMicrosoft

Ich denke viele kennen es: Ein Update oder ein neues Programm und vieles funktioniert nicht mehr wie gewünscht. Die ...

Microsoft
Microsoft verarztet 50 Sicherheitslücken
Tipp von Hyrule vor 5 TagenMicrosoft

Microsoft verarztet mal wieder ein "paar" Sicherheitslücken in ihren Produkten: Und mal wieder Remote Code Execution und der abartige ...

Heiß diskutierte Inhalte
Batch & Shell
Powershell Netzwerkdrucker auflisten
gelöst Frage von schiggi85Batch & Shell16 Kommentare

Hallo zusammen, ich möchte mit dem invoke-command bei einem remoteclient die installierten Netzwerkdrucker des Users abfragen. Nur klappt das ...

CPU, RAM, Mainboards
ASUS P5W DELUXE startet nur manchmal und nur mit 2 GraKas
Frage von Windows10GegnerCPU, RAM, Mainboards14 Kommentare

Hallo, ich habe das o.g. Motherboard erhalten. Egal ob C2D 8400, Pentium D 945 oder P4 670, das teil ...

Outlook & Mail
Nachweis des Löschens einer Email nach DSGVO in Outlook
Frage von linuxadmOutlook & Mail11 Kommentare

Hallo Forum, wie wahrscheinlich viele von Euch kämpfe ich mit der Umsetzung der DSGVO bei meinen Kunden. Konkret geht ...

Exchange Server
Exchange 2013 kein Mail-Versand und -Empfang nach Neustart
Frage von AkroshExchange Server11 Kommentare

Hallo zusammen, ich habe hier ein Problem mit unserem Exchange Server 2013 (VM auf ESXi 6.5). Die Festplatten C ...