MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Word
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 06.07.2007, 06:42   #1
Keiler1114
Standard Word 2003 - 12 Gutscheine ab Startdatum drucken

Hallo,
ich möchte auf ein A4-Blatt 12 Berechtigungsgutscheine drucken. Dabei sollen die Gutscheine mit Monat/Jahr der Gültigkeit ab einem vorgegebenen Startdatum versehen werden. Daneben soll noch ein Name in alle Gutscheine eingedruckt werden.

Beispiel:
Karl Mustermann
08/2007

Die Gutscheine sollen dann mit "08/2007" bis "07/2008" fortlaufend bedruckt werden.

Wer weiß einen Rat?
Danke schon mal.
 
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 06.07.2007, 09:02   #2
peppi
MOF Guru
MOF Guru
Standard

Hallo,

wie liegen die Daten denn vor? Gibst Du die händisch ein, oder gibt es eine irgendwie geartete Liste, die man als Grundlage für einen Serienbrief nehmen könnte? Da kann dann nämlich auch ausgewählt werden, was ausgedruckt werden soll..

__________________

Gruß peppi
WinXP Pro SP2 | Office 2000, 2002, 2003, 2007 | VB6 Pro SP5
Bitte keine unaufgeforderten Mails/PNs an mich. - Fragen gehören ins Forum - Danke...

peppi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 06.07.2007, 09:41   #3
Keiler1114
Standard 12 Gutscheine ab Startdatum drucken

Ich gebe nur den Namen und den Beginnmonat/Jahr händisch vor.
Dann sollen die 12 Gutscheine (auf einer A4-Seite, zum ausschneiden, evtl. vorperforiertes Papier) jeweils mit dem Namen und einem der 12 Gültigkeitsmonate (ab Beginnmonat) gedruckt werden.

Mein Problem ist halt: der Antragsteller kommt irgendwann im Lauf des Jahres und erhält ab diesem Zeitpunkt Gutscheine für die kommenden 12 Monate ab seiner Antragstellung. Deswegen kann ich nichts vordrucken.

Gruß
Keiler
 
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 06.07.2007, 09:46   #4
peppi
MOF Guru
MOF Guru
Standard

Hallo Keiler,

das ist ein wenig schwierig. Man kann zwar vor Druck abfragen, was gedruckt werden soll, aber eigentlich nur Seiten... Irgendwie fällt mir zu Deinem Problem momentan nix Gescheites ein... Aber vielleicht ist es einfach noch zu früh für mein Hirn...

PapaSchlumpf wird sich den Beitrag bestimmt auch durchlesen und eine Lösung präsentieren ...

__________________

Gruß peppi
WinXP Pro SP2 | Office 2000, 2002, 2003, 2007 | VB6 Pro SP5
Bitte keine unaufgeforderten Mails/PNs an mich. - Fragen gehören ins Forum - Danke...

peppi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 06.07.2007, 11:04   #5
PapaSchlumpf
MOF Meister
MOF Meister
Standard

@peppi
wie kann ich mch bei dieser Frage noch rausreden?

also...
folgendes Makro erstellt ein Grundgerüst mit den Daten.
Die Anpassung an die Anforderung solltest du dann schon vornehmen können

Code:

Sub CreateTableWithDate()
Dim tbl As Table
Dim cl As Cell
Dim iMonat As Integer, iJahr As Integer
iMonat = InputBox("Startmonat", , Month(Now))
iJahr = InputBox("Startjahr", , Year(Now))
ActiveDocument.Content.Delete
Set tbl = ActiveDocument.Tables.Add(ActiveDocument.Range, 6, 2)
For Each cl In tbl.Range.Cells
  With cl
    .Height = 100
    .HeightRule = wdRowHeightExactly
    .VerticalAlignment = wdCellAlignVerticalCenter
    .Range = iMonat & "/" & iJahr
    .Range.Font.Size = 14
    .Range.Font.Bold = True
  End With
  
  iMonat = iMonat + 1
  If iMonat > 12 Then
    iMonat = 1
    iJahr = iJahr + 1
  End If
Next cl
End Sub
HTH
PS

__________________



Bitte gebt Rückmeldung, wenn Ihr Hilfe/Antworten erhaltet,
damit auch andere etwas davon haben...
Bitte kennzeichnet Eure Beiträge als "Beantwortet" wenn eine Antwort geholfen hat
PapaSchlumpf ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 06.07.2007, 11:20   #6
Keiler1114
Standard

Vielen Dank schon mal. Da muss ich mich aber erst noch in einer ruhigen Stunde genauer mit befassen.

1000 Dank!!
 
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.07.2007, 07:33   #7
Keiler1114
Strahlen 12 Gutscheine ab Startdatum

Hallo,

es hat prima funktioniert!! Danke nochmal. PapaSchlumpf lebe hoch!

Gruß
Keiler
 
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:24 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.