Automatischer Schnellbrief
Moderator: Forum Moderatoren
Forumsregeln
TM-Startforum - "offen für alle Themen".
Beiträge, die in einen anderen Bereich passen, werden bei Bedarf verschoben.
TM-Startforum - "offen für alle Themen".
Beiträge, die in einen anderen Bereich passen, werden bei Bedarf verschoben.
-
- Beiträge: 9
- Registriert: Sonntag 9. August 2009, 09:51
- 14
Automatischer Schnellbrief
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!
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!
Re: Automatischer Schnellbrief
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
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
Ich werde keine frühe Turbomed - Downloadversion installieren
-
- Beiträge: 9
- Registriert: Sonntag 9. August 2009, 09:51
- 14
Re: Automatischer Schnellbrief
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.
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.
Re: Automatischer Schnellbrief
Hallo, wollen sie FritzFax nutzen oder einen lokalen Drucker?
Gruß Nobbie
Ich werde keine frühe Turbomed - Downloadversion installieren
Ich werde keine frühe Turbomed - Downloadversion installieren
-
- Beiträge: 9
- Registriert: Sonntag 9. August 2009, 09:51
- 14
Re: Automatischer Schnellbrief
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
mfg nobbie
Gruß Nobbie
Ich werde keine frühe Turbomed - Downloadversion installieren
Ich werde keine frühe Turbomed - Downloadversion installieren
Re: Automatischer Schnellbrief
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
mfg nobbie
Gruß Nobbie
Ich werde keine frühe Turbomed - Downloadversion installieren
Ich werde keine frühe Turbomed - Downloadversion installieren
-
- Beiträge: 9
- Registriert: Sonntag 9. August 2009, 09:51
- 14
Re: Automatischer Schnellbrief
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?
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?
Re: Automatischer Schnellbrief
Hallo, das mit der TM99.dot habe ich auch manchmal an meinem PC, habe den Zusammenhang noch nicht so ganz durchblickt.
mfg nobbie
mfg nobbie
Gruß Nobbie
Ich werde keine frühe Turbomed - Downloadversion installieren
Ich werde keine frühe Turbomed - Downloadversion installieren
Wer ist online?
Mitglieder in diesem Forum: Ahrefs [Bot], Google [Bot] und 126 Gäste