Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Label drucken aus Excel

Label drucken aus Excel
20.05.2003 15:29:24
Hannes
Hallo Excelgemeinde,
ich bin gerade dabei eine Applikation zu programmieren, die unter anderem eine Labeldruckfunktion beinhaltet. Leider funktioniert das bedrucken von Labeln direkt aus Excel nicht befriedigend, da ich nicht nur einige wenige Adressaufkleber drucken will, sondern gleich einige 100. Ich benötige für das editieren und handhaben meiner Datenmengen sinnvollerweise Excel mit einer über ADO angehängten Accessdatenbank.

Frage: Kennt jemand eine brauchbare Labeldruck Engine die ich in mein Programm einbinden kann und die in der Lage ist größere Mengen an Labeln zuverlässig und einigermaßen präzise zu drucken.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Label drucken aus Excel
21.05.2003 06:54:00
Willie

Hallo Hannes du machst das ja bestimmt mit Word? Adressetiketten
drucken oder? Wenn Ja kannst diese Makros benutzen! Es wird eine
Zwischen Datei erzeugt, welche dann die Quelle ist für deine Labels.

Sub Labeldrucken()
Sheets("Tabelle3").Select
'-------- Liste in Datei speichern ------------'
Application.ScreenUpdating = False
sDatabaseName = ThisWorkbook.Path & "\Quelle.xls"
ActiveSheet.Copy
antwort = MsgBox("Die Liste wird unter " & sDatabaseName & "!" & " gespeichert!", vbQuestion + vbYesNo, "Soll die Liste gespeichert werden?")
If antwort = vbNo Then
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Exit Sub
Else
Kill sDatabaseName 'Alte oder vorhandene Datei wird ohne Rückfrage gelöscht
ActiveSheet.Buttons.Delete
ActiveWorkbook.SaveAs sDatabaseName
ActiveWorkbook.Close savechanges:=False
Call DokuMeldungen
End If

End Sub


Sub DokuMeldungen()
Set wshshell = CreateObject("WScript.Shell")
Pfad = ThisWorkbook.Path
wshshell.Run Pfad & "\Serienbrief.DOC"
End Sub

Gruß

Willie


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige