Automatischer Schnellbrief

Fragen, Anregungen oder Tipps und Tricks? Hier ist der erste Anlaufpunkt.
Nicht sicher, wo ein Thema hingehört? Hier hinein - wir kümmern uns! :)

Moderator: Forum Moderatoren

Forumsregeln
TM-Startforum - "offen für alle Themen".
Beiträge, die in einen anderen Bereich passen, werden bei Bedarf verschoben.
Antworten
trapper
Beiträge: 9
Registriert: Sonntag 9. August 2009, 09:51
14

Automatischer Schnellbrief

Beitrag von trapper »

Hallo
ich tüftle schon länger mit einem automatisierten Ablauf für Schnellbriefe rum (Barcodeerstellung mit Pat.Nr u.ä.). Ich kann über ein Symbol in der Menüleiste einen Schnellbrief auswählen. Er öffnet sich und wird mit den Platzhaltern befüllt. Er soll dann automatisch an einen bestimmten Drucker gesendet und danach geschlossen werden. Das würde mittels Makrosteuerung klappen. Aber es bleibt immer daran hängen, dass TM will, dass der Schnellbrief in der Akte gespeichert werden soll. Das ist nicht notwendig. Kennt jemand das Problem oder weiß eine Lösung. Danke!
Benutzeravatar
Nobbie
Beiträge: 1647
Registriert: Samstag 27. Juli 2013, 11:42
10
Bedankt: 1 time

Re: Automatischer Schnellbrief

Beitrag von Nobbie »

Hallo,
wir haben ein Word-Makro erstellt, das den Brief an den Drucker sendet (Fritzfax), danch wird das Dokment gespeichert (oder wenn man nicht speichern möchte eben nur geschlossen und die Speicherabfrage im Makro verneint), danach wir die Anwendung geschlossen. Mit dem normalen Drucker geht das seit Win7 nicht mehr, habe das schon mit delay usw. probiert aber nicht hingekriegt. Office 2003, Win7-64.

ActivePrinter = "FRITZfax Drucker"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
ActivePrinter = "FRITZfax Drucker"

ActiveDocument.ActiveWindow.Close SaveChanges:=wdPromptToSaveChanges

Application.Quit

mfg Nobbie
Gruß Nobbie

Ich werde keine frühe Turbomed - Downloadversion installieren
trapper
Beiträge: 9
Registriert: Sonntag 9. August 2009, 09:51
14

Re: Automatischer Schnellbrief

Beitrag von trapper »

Danke für die HIlfe.
Der Code funktioniert gut. Leider geht es so schnell, dass auf dem Dokument nur die Platzhalter zu sehen sind. Es geht wohl zu schnell und die Platzhalter werden nicht befüllt.
Benutzeravatar
Nobbie
Beiträge: 1647
Registriert: Samstag 27. Juli 2013, 11:42
10
Bedankt: 1 time

Re: Automatischer Schnellbrief

Beitrag von Nobbie »

Hallo, wollen sie FritzFax nutzen oder einen lokalen Drucker?
Gruß Nobbie

Ich werde keine frühe Turbomed - Downloadversion installieren
trapper
Beiträge: 9
Registriert: Sonntag 9. August 2009, 09:51
14

Re: Automatischer Schnellbrief

Beitrag von trapper »

Einen lokalen Etikettendrucker.
Benutzeravatar
Nobbie
Beiträge: 1647
Registriert: Samstag 27. Juli 2013, 11:42
10
Bedankt: 1 time

Re: Automatischer Schnellbrief

Beitrag von Nobbie »

haut bei uns seit Win7 nicht mehr hin, ging aber unter XP. Ich bastel noch mal die Tage an den Wordmakros. Wenn ich eine Lösung finde, melde ich mich noch mal.

mfg nobbie
Gruß Nobbie

Ich werde keine frühe Turbomed - Downloadversion installieren
Benutzeravatar
Nobbie
Beiträge: 1647
Registriert: Samstag 27. Juli 2013, 11:42
10
Bedankt: 1 time

Re: Automatischer Schnellbrief

Beitrag von Nobbie »

Hallo, habe noch mal den "Quit" Befehl nach dem drucken-Makro ausprobiert und siehe da, es funktioniert jetzt. M.e. liegt das daran, daß wir jetzt im Din A4 Schacht Normalpapier haben und nicht mehr mit dem Postscrip-Treiber drucken.

mfg nobbie
Gruß Nobbie

Ich werde keine frühe Turbomed - Downloadversion installieren
trapper
Beiträge: 9
Registriert: Sonntag 9. August 2009, 09:51
14

Re: Automatischer Schnellbrief

Beitrag von trapper »

Hallo,
ich bin fündig geworden:

Sub EtikettendruckRiedl()

Dim Drucker As String
Drucker = ActivePrinter


ActivePrinter = "Brother QL-570"

Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
ActiveDocument.ActiveWindow.Close SaveChanges:=0

ActivePrinter = Drucker

Application.Quit

End Sub

Mit diesem Code klappt es gut. Ich habe in der Vorlage das Makro dem Tastenkürzel STRG D zugewiesen. So können die Helferinnen wie in TM das Etikett ausdrucken und alles andere läuft automatisch.
Eines ist nur komisch: An mnachen Arbeitsstationen frägt Word nach, ob die TM99.dot gespeichert werden soll und an anderen nicht. Woran kann das liegen?
Benutzeravatar
Nobbie
Beiträge: 1647
Registriert: Samstag 27. Juli 2013, 11:42
10
Bedankt: 1 time

Re: Automatischer Schnellbrief

Beitrag von Nobbie »

Hallo, das mit der TM99.dot habe ich auch manchmal an meinem PC, habe den Zusammenhang noch nicht so ganz durchblickt.

mfg nobbie
Gruß Nobbie

Ich werde keine frühe Turbomed - Downloadversion installieren
Antworten

Wer ist online?

Mitglieder in diesem Forum: carbonarius und 59 Gäste