Etikett mit Barcode drucken

[mad]

Hallo Ekkehard,

habe Deinen Code,

...
  End If
        MsgBoxResult = _
                MsgBox(Prompt:="Ist die richtige Etikettenrolle ('" & Mid(stDocName, 4) & "' eingelegt?"), _
                Buttons:=vbYesNo
        If MsgBoxResult = vbYes Then
            DoCmd.OpenReport stDocName, acViewNormal, , "InventarNr = " & .InventarNr
            'dafür ist doch die Variable da
        End If
...

reinkopiert, allerdings wird die Code-Passage,

MsgBoxResult = _
                MsgBox(Prompt:="Ist die richtige Etikettenrolle ('" & Mid(stDocName, 4) & "' eingelegt?"), _
                Buttons:=vbYesNo

in "rot" angezeit.
Der Curser springt sofort auf das Komma hinter

(eingelegt?"), _

und bringt die Fehlermeldung "Erwartet: Anwesiungsende"

Hab schon nachgelesen, aber leider reichen meine VBA-Kenntnisse dazu nicht aus.

Hättest Du bitte einen Tipp für mich.


Danke
mad

[DF6GL]

Hallo,

das Hochkomma ist überflüssig, bzw. falsch an dieser Stelle.

[mad]

oK,
Danke

mad

[Beaker s.a.]

Hallo,

das Hochkomma ist überflüssig, bzw. falsch an dieser Stelle.

Nein, da ist nur eine Klammer verrutscht (rot) und die schliessende
Klammer im Anzeigestring fehlt (blau)

MsgBoxResult = _
                MsgBox(Prompt:="Ist die richtige Etikettenrolle ('" & Mid(stDocName, 4) & "') eingelegt?"), _
                Buttons:=vbYesNo)

oder man ersetzt die einfachen ' durch doppelte "

MsgBoxResult = _
                MsgBox(Prompt:="Ist die richtige Etikettenrolle (""" & Mid(stDocName, 4) & """) eingelegt?", _
                Buttons:=vbYesNo)

gruss ekkehard

[mad]

Habe mich erst dem Rat von ShenTo19 angenommen.
Bei mir in den Druckereinstellung war eine Bandlänge von 100mm, siehe Bild, eingestellt. Habe das jetzt angepaßt und es funktioniert.


Hallo Ekkehart,

... eine Klammer verrutscht (rot) ...

das Thema schau ich mir am Wochenende erst an.


Danke an alle Unterstützer.

Gruss
mad

[mad]

Hallo Zusammen,

jetzt hätte ich noch ein kleines Anliegen.
Aktuell wird beim 12mm Etikettenband immer eine zweiter leerer Streifen mit ausgedruckt. Wenn nur ein Streifen (eine Seite) gedruckt werden soll, müsste ich den Barcode in der Höhe so reduzieren das in der Scanner nicht mehr erkennen kann. Wenn er lesbar bleiben soll muß er eben so hoch sein das dann blöderweise ein zweiter Steifen (zweite leere Seite) gedruckt wird.
Um immer nur die erste Seite zu drucken, habe ich mir mit diesem Code beholfen:

Code [Auswählen] Erweitern

...
            DoCmd.OpenReport stDocName, acViewPreview, , "InventarNr = " & .InventarNr          'acViewPreview (Druck anzeigen)
            DoCmd.PrintOut acPages, 1, 1  'nur Seite 1
...
Jetzt ruft er die Seite auf und druckt diese gleich (nur ein Streifen).

Sobald ich aber für "acViewPreview" - "acViewNormal" anwende, wird zwar der Druck (Bericht) nicht mehr geöffnet, dann werden aber wieder zwei Streifen (Seiten) gedruckt!

Wie könnte ich das auflösen, so daß auch ohne öffnen der Bericht nur die erste Seite gedruckt wird?


Gruss
Manfred