Beiträge von NoxX

warum man CS verbieten sollte

warum man counter-strike für die pisa generation verbieten lassen sollte: http://www.unf-unf.de/show819.html :top:

immer der, der fragt? :p

...was ja auch nicht so verkehrt wäre

höchstens noch auf "homezone" und evtl. das häuschen im display.

alles andere ist bestimmt nicht schützbar, sonst dürfte ja z.b. nur mercedes autos bauen

das thema ist aber bestimmt ein gefunden fressen für den o2 anwalt um seine abmahnungen von 8stück pro tag deutlich zu erhöhen

aaaaaaaaaalso:

du brauchst auf jedenfall acrobat full - nicht den acrobat reader, da du das hinzugefügte ja abspeicher musst.
dieses kann der acrobat reader nicht, denn wie ein schlauer mann mal gesagt hat: könnte der acrobat reader schreiben, würde er nicht reader heissen

die zauberlösung heisst ".fdf transport datei".
diese datei übergibt die ähnlich einer steuerdatei z.b. für word die daten in fest defninierte felder.

dies bedeutet für dich, das du im ersten schritt in deiner PDF-vorlage mit hilfe des "textfeld-werkzeug" ersteinmal alle felder mit eindeutigen namen versehen darfst.

hast du das erledigt, speicherst du das .pdf ab und schliesst es

in excel öffnest du den vba-editor (ALT+F11), fügst mit rechtsklick ein neues modul ein kopierst rechts in das grosse fenster folgenden code:

Public Sub machPDF()


Dim dName$, ADatei$, tmp$, i!
Dim strPfad As String
strPfad = ActiveWorkbook.Path & "\"
dName = strPfad & "Transport.fdf"


Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(dName, True)


a.WriteLine ("%FDF-1.2")
a.WriteLine ("%âãÏÓ")
a.WriteLine ("1 0 obj")
a.WriteLine ("<<")
a.WriteLine ("/FDF << /Fields")
a.WriteLine ("[")


a.WriteLine ("<< /V (" & Worksheets("Tabelle1").Range("A1").Value & ")/T (an)>>")
'a.WriteLine ("<< /V (" & Worksheets("Tabelle1").Range("b1").Value & ")/T (cc)>>")
'a.WriteLine ("<< /V (" & Worksheets("Tabelle1").Range("c1").Value & ")/T (vom)>>")
'a.WriteLine ("<< /V (" & Worksheets("Tabelle1").Range("d1").Value & ")/T (datum)>>")


a.WriteLine ("]")
a.WriteLine ("/F (excel_pdf.pdf)>>")
a.WriteLine (">>")
a.WriteLine ("endobj")
a.WriteLine ("trailer")
a.WriteLine ("<<")
a.WriteLine ("/Root 1 0 R")


a.WriteLine (">>")
a.WriteLine ("%%EOF")


a.Close


On Error GoTo w


tmp = String$(512, 0)
ADatei = dName
If ADatei = "" Then
MsgBox "Es wurde kein Acrobat Reader auf Ihrem Computer gefunden." & Chr(13) & _
"Bitte installieren Sie den Acrobat Reader.", vbInformation, "Hinweis"
Exit Sub
End If


Do Until dName = strPfad & "Transport.fdf"
Loop


Shell ADatei, vbMaximizedFocus


w:
Set fs = Nothing
Set a = Nothing


End Sub

die exceldatei speicherst du in dasselbe verzeichnis ab, in der auch dein vorhin gespeichertes .pdf liegt.

du musst nun noch ein bissel den code auf deine bedürfnisse anpassen:
strPfad = ActiveWorkbook.Path & "\"
dName = strPfad & "Transport.fdf"
--> hier erstellt das makro im verzeichnis der exceldatei die steuerdatei "Transport.fdf" (kannst du problemlos ändern)

a.WriteLine ("<< /V (" & Worksheets("Tabelle1").Range("A1").Value & ")/T (an)>>")
--> aus der "Tabelle1" deiner exceldatei holt sich das makro das was du in spalte A1 geschrieben hast und wird es dem PDF textfeld "an" zuweisen.
du könntest z.b. für dein rechnungsformular den adresskopf so machen.
trägst in spalte A1 "Max Mustermann" ein und dein textfeld im PDF heisst "Vor_ZuName", dann wäre der code:
a.WriteLine ("<< /V (" & Worksheets("Tabelle1").Range("A1").Value & ")/T (Vor_ZuName)>>")

ebenfalls sehr wichtig ist diese programmzeile:
a.WriteLine ("/F (excel_pdf.pdf)>>")
--> hier sagst du der steuerdatei wie dein PDF dokument heisst, in meinem fall halt "excel_pdf.pdf".
sollte dein PDF dokument z.b. "Rechnung.pdf" heissen wäre der code
a.WriteLine ("/F (rechnung.pdf)>>")

das ganze kannst du im codefenster mit F5 (cursor muss im code blinken) starten oder über extras -> makro -> makros

kleines manko: für masse ist der code in dieser art nicht geeignet. müsste man mal später rangehen
ich hatte es mal vor ~2jahren für die arbeit gebastelt um eine art weiterleitungsblatt zu automatisieren, aber alle mitarbeiter mit acrobat full auszustatten damit diese auch etwas hineinschreiben können war dann doch dem guten etwas zuviel.
chef hätte sich dann wohl nicht den 911er kaufen können :mad: :cool:

vielleicht wechselt ja o2 wegen den 0,2 cent zu arcor ?

vermutlich hat bt aber viel mehr nummern als arcor zur verfügung/registriert.

und wieso in den rücken fallen? armes o2 *über den kopf streich*

hm... also o2 kannst du dann auch schonmal ausschliessen, da ist ja vf world deutlich billiger

in kroatien zahlst du 99cent-10% bei vodafone
bei o2: 1,19euro pro minute im 30/30 takt (also 30cent teurer) und gprs 0,095 für 10kb in 100er kb schritten :p

http://www2.de.o2.com/appserve…2portal/euro/croatia.html

mit einem vodafone-umts spezialpaket kannst du die minuten auch im ausland abtelefonieren :top:
kostet aber 75cent pro gespräch.

viele erfahrungsberichte findet ihr auch im ok.de forum: http://www.onlinekosten.de/forum/forumdisplay.php?f=86

hi,

3 kleine tipps dazu:

- suche benutzen
- im "achtung werbung" forum schauen
- vodafoehn@vodafone.de eine email schicken