Office: automatischer Druck an nicht Standarddrucker

criehl · 9. April 2015

Hallo,

Ihr habt mir bei dieser Datei schon sehr weitergeholfen. Ich dachte auch, ich wäre fertig, aber leider ist jetzt noch ein Problem aufgetreten, mit dem ich nicht gerechnet hatte... *mad.gif*
Ich hoffe ihr könnt mir bei meiner Frage helfen...

Was will ich tun?
Ich habe ein Excel-Liste erstellt, in der man über eine UserForm Daten eintragen kann. Diese Daten werden nach dem Betätigen eines entsprechenden Buttons in zuvor definierte Textmarken einer Word-Datei übertragen.
Word soll die Seite (A3) drucken und sich dann ohne speichern wieder schließen.

Was habe ich bereits?
Die Excel-Datei ist fertig, es ist auch alles für das Word entsprechenend programmiert

Wo ist das Problem?
Bei Drucken. Ich möchte nicht den Standarddrucker ansprechen (der kann nur A4 drucken), sondern einen anderen Drucker, der auch tatsächlich A3 drucken kann.
Wenn ich das Programm mit den jetzigen Einstellungen ausführe, dann bleibt er in Word hängen, weil der Fehler kommt: "Die Seitenränder liegen außerhalb des druckbaren Bereichs".

Frage:
Wie kann ich einen anderen Drucker, als den Standarddrucker ansprechen?

Mein Code für die Übergabe und Druck an Word lautet wie folgt:
Code:

Option Explicit
Public appWord As New Word.Application
Public docVorlage As Object

Public Function WordDokument()
'Dateinamen auslesen
Dim endName As String
Dim filePath As String
Dim Name As String
Dim i As Integer
Dim j As Integer
Dim strTmark(11) As String
Dim loCounter As Long
Dim rngBM As Object
Dim wsSource As Worksheet

Set wsSource = ActiveWorkbook.Worksheets(4)

strTmark(1) = "Hersteller"
strTmark(2) = "Artikelname"
strTmark(3) = "Zusatztext"
strTmark(4) = "Flaschenzahl"
strTmark(5) = "Füllmenge"
strTmark(6) = "Kistenpreis"
strTmark(7) = "PfandKiste"
strTmark(8) = "LiterPreisKiste"
strTmark(9) = "Flaschenpreis"
strTmark(10) = "PfandFlasche"
strTmark(11) = "LiterPreisFlasche"

'Name und Pfad der Datei einlesen
filePath = ActiveWorkbook.FullName
'Länge Dateipfad und Dateiname ermitteln
i = Len(filePath)
'Name der Datei einlesen
Name = ActiveWorkbook.Name
'Länge Dateiname ermitteln
j = Len(Name)

'Ermittel Pfad zur Vorlage (Ordner dieser Datei \ Dateiname)
endName = Left(filePath, i - j) & "PlakatA3.docx"
'endName = "c:\Test\test.docx"
'Öffne neues Word-Dokument mit Vorlage
Set docVorlage = appWord.Documents.Open(endName)

'Textmarken einsetzen
For loCounter = 1 To UBound(strTmark)
With docVorlage
If .Bookmarks.Exists(strTmark(loCounter)) Then
Set rngBM = .Bookmarks(strTmark(loCounter)).Range
rngBM.Text = wsSource.Range("c" & loCounter + 2).Text
.Bookmarks.Add Name:=strTmark(loCounter), Range:=rngBM
Set rngBM = Nothing
.Fields.Update
End If
End With
Next loCounter

'Word drucken und schliessen
docVorlage.PrintOut
docVorlage.Close savechanges:=False

appWord.Quit
Set appWord = Nothing
Set docVorlage = Nothing
Set wsSource = Nothing

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen lieben Dank für Eure Hilfe!

LG
Stefan

:)

Tinker Bell · 11. April 2015

Hallo
Schauhe dir mal diesen Beitrag an:
http://www.herber.de/forum/archiv/12...bestimmen.html

Gruss,
Tinker Bell

R J · 12. April 2015

Hi Stefan,

....oder im Zweifelsfall den Drucker auswählen lassen. Dazu die Prozedur Drucker_Test aufrufen.

Code:

Option Explicit

Public Sub Drucker_Test()
Dim sPrinter As String

If Application.Dialogs(xlDialogPrinterSetup).Show = False Then Exit Sub

sPrinter = ActivePrinter

If Standard_Drucker(sPrinter) Then
MsgBox "Drucker umgestellt auf:" & vbCr & sPrinter, vbInformation
Else
MsgBox "Fehler aufgetreten!", vbCritical
End If

End Sub

Function Standard_Drucker(ByRef sPrinterName As String) As Boolean
Dim objWSHNetwork As Object

On Error GoTo ErrorH:

Set objWSHNetwork = CreateObject("WScript.Network")
sPrinterName = Left$(sPrinterName, InStr(sPrinterName, " auf") - 1)

objWSHNetwork.SetDefaultPrinter sPrinterName
Standard_Drucker = True

ErrorH:
Set objWSHNetwork = Nothing
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

haklesoft · 12. April 2015

Hallo Stefan,

wenn Du den A3-Druckertreibernamen kennst, kannst Du Deinen Code für den Word-Ausdruck etwa so erweitern: Code:

'Word drucken und schliessen
Dim sPrinter As String
With appWord
sPrinter = .ActivePrinter 'aktuellen Drucker vor Umschaltung merken
.ActivePrinter = "Microsoft XPS Document Writer" '
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

criehl · 16. April 2015

Danke an alle für die Antworten!!!
Ich werde das mal testen! *Smilie

LG
Stefan

Office: automatischer Druck an nicht Standarddrucker

automatischer Druck an nicht Standarddrucker

automatischer Druck an nicht Standarddrucker

automatischer Druck an nicht Standarddrucker

automatischer Druck an nicht Standarddrucker - Similar Threads - automatischer Druck Standarddrucker

Drucken nur wenn Zelle Wert hat / Automatisches Löschen der Zelle beim Start

Automatisches Einfügen eines Fotos in ein Word Dokument und anschließender automatischer Ausdruck

Word Dokumente drucken - Ausrichtung ändert sich automatisch

PDF-Druck mit automatischer Vergabe des Namens

Automatischer Druck ohne Vorschau

PDF automatisch drucken

Outlook 2013 Senden und anschliessend automatisch drucken