Briefumschlag

Kommentare

3 Kommentare

  • Avatar
    Thorsten Pistler

    Hallo,

    eine Idee dazu wäre, das Formular für das Adressblatt so zu _vergewaltigen_, dass es passend eine Adresse auf einen Briefumschlag druckt.

    Nach jeder Adresse eine neue Seite anfangen, so könnte man bei einsprechender Filterung der Adressliste die Umschläge als Serienbrief drucken.

    Gruß

    Thorsten

    0
    Aktionen für Kommentare Permalink
  • Avatar
    Christian Bremm

    Die Funktion heißt Briefumschlag mit Sichtfenster...

    Benutze die auch und klappt prima.

    0
    Aktionen für Kommentare Permalink
  • Avatar
    Edgar Paulo

    Also habe mir mal die Zeit genommen für ein Briefumschlag ohne Sichtfenster. 

    Neues Formular angelegt und angepasst auf Briefumschlag lang (220mm x 110mm)

    Mein Problem ist das es in der Vorschau auch alles super angezeigt wird. Aber wenn ich drucke ist alles leer.

    Auch wenn ich ein PDF daraus mache ist es leer. Hat jemand eine Idee woran das Ligen kann? Hier mal mein Code wie ich es angelegt habe.

     

    --------------------------------------------------------------------------------------------------------------------------------------------------------------------

    #BeginDocument

    SetDocument(150, 150, 100, 100) ' Seitenränder definieren

    SetDocumentSize(2200, 1100)

     

    ' Globale Konstanten definieren

    const DOCTITEL as text = "Umschlag"

    const BLACK as color = RGBColor(0, 0, 0)

     

    ' -----------------------------------------------------------------------------------------

    ' Beginn Adress- und Infobereich

    ' -----------------------------------------------------------------------------------------

    #BeginGraphicsText

    SetArea(70, AREA_AUTOSIZE)

    #include "STYLE Arial 9, normal"

     

    '-----------------------------------------------------------------------------

    #BeginGraphicsText

    '-----------------------------------------------------------------------------

    'Eigene Adresse

    SetArea(500, AREA_AUTOSIZE)

    DrawText(FIRMA_LGname, 60, 100, 700, 250,1)

    DrawText(Firma_LGStrasse, 60, 150, 700, 250,1)

    DrawText(FIRMA_LGplz, 60, 200, 130, 250,1)

    DrawText(FIRMA_LGOrt, 190, 200, 700, 250,1)

    ' Rechnungsanschrift rechts unten

    DrawText(AUF_Rechnungsanschrift, 1200, 550, 550, 550,1)

    0
    Aktionen für Kommentare Permalink

Bitte melden Sie sich an, um einen Kommentar zu hinterlassen.