Etikkettendruck

[teddy1848]

Das wars 

DAnke, danke.

LG aus dem Ruhrpott.

Annett

[teddy1848]

Sorry Harald, ich hab noch ne Frage. Mein Chef hatte noch eine glorreiche Idee, an der ich mich bis jetzt versucht habe. Es soll noch ein zusätzliches Etikett gedruckt werden, wenn in einem zu dem Datensatz zugehörigen Ja/nein-Feld das Häckchen gesetzt ist und auf dem Etikett soll "PAS" stehen (zur Info ist eine spezielle Gewebefärbung). Kann man das auch noch in den String integrieren?

Wäre toll, wenn du mir noch einmal helfen könntest.

LG

[bahasu]

Hi Annett,

mit String meinst Du das, was den Buchstaben enthält?

Harald

[teddy1848]

hab das falsche Wort benutzt, ich meinen den Code den ich zum  Etikettendruck benutze

[bahasu]

Hi Annett,

anbei ein ungetesteter Code, um mein Verständnis zu überprüfen:

Private Sub Detailbereich_Print(Cancel As Integer, PrintCount As Integer)
    If Nz(Me.Anzahl, 0) > 0 Then
        Me.Bezeichnung = Chr(Me.PrintCount + 64)
    Else
        Me.Bezeichnung = ""
    End If
   
   if nz(Me.DeinJa_Nein_Feld, false) = true then
           Me.Deine_Zusatzbezeichnung = "PAS"
   else
           Me.Deine_Zusatzbezeichnung = ""
   end if
    'wenn AnzahlEtiketten ' noch nicht erreicht ist
    If Me.PrintCount < Me.Anzahl Then
        Me.NextRecord = False
    End If
End Sub

Bitte die namen der Me.... Felder Deinen Gegebenheiten entsprechend anpassen.

Ist das gemeint?

[bahasu]

Hi,

ich rudere zurück.

Wie lautet Dein Code zum Ausdrucken?

Harald

Nachtrag
Im Anhang hat das Formular zwei neue Buttons bekommen:
Drucken PAS: druckt ein Etikett, wenn ein Haken gesetzt ist
Drucken beides: erstellt beide Etiketten-Ansichten nacheinander.
War das gemeint?

[Anhang gelöscht durch Administrator]

[teddy1848]

Das passt schon sehr gut, nur soll das Etikett mit "PAS" zusätzlich zu dem schon vorhanden gedruckt werden. Bei dem Code ist nur das Etikett mit "PAS" nicht das ohne .


der code zum Ausdruck lautet mit deinen Änderungen:

If Nz(Me.[Anzahl Schnitte], 0) > 0 Then
    Me.Bezeichnung = Chr(Me.PrintCount + 64)
   
    Else
    Me.Bezeichnung = ""
    End If
   
       If Nz(Me.PAS, False) = True Then
           Me.Bezeichnung_PAS = "PAS"
   Else
           Me.Bezeichnung_PAS = ""
   End If
   
   
   
    If Me.PrintCount < Me.[Anzahl Schnitte] Then
        Me.NextRecord = False
   
    End If
End Sub
Annett

[teddy1848]

es soll ein Ausdruck inkl. der PAS-Drucke sein. nicht zwei verschieden Ausdrucke, den PAS alleine dsa wär nicht so das Problem für mich. Als Beispiel:

ID (45) mit 3 als Anzahl Schnitte und Hacken bei PAS

45A, 45B, 45C, 45 PAS

ID (66) mit 0 als Anzahl und Haken bei PAS

66, 66 PAS

[bahasu]

Hi,

dann doch Antwort 19:
Mach ein zusätzliches Feld im Etikett: ich hatte es "Deine_Zusatzbezeichnung" genannt
und bau die roten Zeilen aus Antwort 19 ein, wobei noch der Name vom Ja_Nein_Feld (ich hatte es "DeinJa_Nein_Feld" genannt) angepaßt werden muss.

Harald

[teddy1848]

Hab ich so gemacht mit dem zusätzlichen Feld, siehe Code von Antwort 21. Da passiert abe oben beschriebenes Problem

[bahasu]

Hi,

wie rufst Du das Drucken vom Etikett auf?
Per Button auf dem Formular? Wenn ja, wie lautet der Code, der beim Button hinterlegt ist?

Oder machst Du eine Abfrage, in der Ja_Nein-Feld ausgewertet wird?

Harald

[teddy1848]

im Moment per Seitenlayout des Berichts Etiketten. Einen Button brauch ich nicht unbedingt.

Annett

[bahasu]

Hi Annett,

ist mir rätselhaft.
Im angehängten Beispiel bekomme ich auch Etiketten, die keinen "PAS"-Haken haben, auch aus der Seitenansicht heraus.

Falls das nicht hilft: Ist es machbar, dass Du Deine Datenbank in komprimierter und gezippter Form als a2003-Version ("schlimmstenfalls" als a2007) mit unsensiblen Beispieldaten zur Verfügung stellst?

Und mit Bitte um Nachsicht, aber Weiterarbeit erst ab morgen.

Harald

[Anhang gelöscht durch Administrator]

[teddy1848]

Lass mal gut sein Harald, du hast mir schon sehr geholfen. Die Datenbank ist sehr umfangreich und vollgepackt mit Daten, die ich nicht mal ebenso löschen kann. Dann muss halt zweimal gedruckt werden, ist auch nicht mit so einem großen Aufwand verbunden.

Schönen Abend noch.

Annett