ms access --> automatischer druck

Dieses Forum ist für alle NiceLabel Fragen für die deutschen Benutzer.

Moderators: Georges, milos, RobertK, tb, rom, NiceLabel Support Team

Post Reply
brauni
Newcomer
Posts: 1
Joined: Thu Mar 18, 2010 11:12 pm

ms access --> automatischer druck

Post by brauni » Thu Mar 18, 2010 11:14 pm

Hallo

Ich versuche eben für einen Kunden eine optimale Lösung zu finden um direkt aus MS Access heraus Etiketten auszudrucken. Laut Homepage geht das mit NiceLabel, jedoch habe ich noch keine Anleitung für VBA gefunden.
.NET schon aber das funktioniert leider nicht in MS Access.
Könnte mir wer von euch weiterhelfen?

danke
brauni

User avatar
tb
NiceLabel
NiceLabel
Posts: 50
Joined: Mon Sep 04, 2006 4:12 pm
Contact:

Re: ms access --> automatischer druck

Post by tb » Mon Mar 22, 2010 3:10 pm

Hier ein kleines Beispiel mit NL4, ist aber mit Version 5 fast identisch

Dim niceApp As Object.
Dim LabelID As Integer
Dim Success As Boolean

Set niceApp = GetObject(, "NiceLabel4.Application")
If Err.Number <> 0 Then
Set niceApp = CreateObject("NiceLabel4.Application")
End If
Err.Clear
LabelID = niceApp.LabelOpen("Hier das Etikett bestimmen")
Success = niceApp.LabelPrint(LabelID, "Anzahl der Etiketten die gedruckt werden sollen")
Success = niceApp.LabelClose(LabelID)
niceApp.Quit

Post Reply