On Mon, 10 Apr 2000, Andre Best wrote:
Hallo Leute,
gibt's ne Moeglichkeit, 2 ps-Dateien miteinander verschmelzen zu lassen ? Konkret soll ein Firmenbrief-Dokument(Grafik) auf ein Brief-Dokument(Text) gelegt werden, beides moeglichst im PS-Format, sodass als Resultat wieder eine ps-Datei rauskommt! Ziel ist es Angebote/Bestaetigungen (bald auch Rechnungen) aus einer Anwendung heraus zu drucken, in diese Druckdatei dann den Firmenbriefkopf einzubinden und diese per Fax oder EMail (evtl. nochmal in pdf konvertiert) zu versenden!
Hat jemand Erfahrung damit ?
*BG* Genau das habe ich auch gesucht ;) Firmenpapier als Formularlayout, dann aus beliebigen Textprogrammen div. OS'e drucken, und das Layout automatisch hinterlegen. Dann ab damit an Hylafax ... Du suchst also ein Perl-Script wie dieses : =================================================snip======================
#!/usr/bin/perl # # Skript um eine Grafik in eine bestehende PostScript-Datei auf jeder # Seite einzufuegen. # (c) 2000 Frank Kroeger, FKroeger@fks-edv.de # Teile des Source-Codes basierend auf Code von Peter Weingartner # http://www.cs.indiana.edu/hyplan/eweingar.html, pjw@sj.znet.com # # Aufrufkonvention: # # Parameter # 1: Name der PostScript-Datei # 2: Name der Grafik im PS-Format (tiff2ps um TIFF-Dateien zu konvertieren) # 3: x Wert um den die Grafik vom Ursprung bewegt werden soll # 4: y Wert um den die Grafik vom Ursprung bewegt werden soll # # # Beispiel: fax.ps, logo.tif vorhanden # # tiff2ps logo.tif > logo.ps # addlogo.pl fax.ps logo.ps 250 350 > neuesfax.ps # # Mit den Werten fuer x und y musst du wohl ein wenig herumspielen # x=250, y=350 setzt die Grafik ca. in die Mitte #
$flag1 = 0; # Hilfsvariable $flag2 = 0; # Hilfsvariable
open (TEXT, $ARGV[0]);
while (<TEXT>) { if (/^%%Page:/) { if ($flag1) { print "grestore\n"; } $flag1 = 1; print $_;
open (GRAFIK, $ARGV[1]); while (<GRAFIK>) { if (/^%%Page:/) { $flag2 = 1; } elsif (/^showpage/) { $flag2 = 0; } elsif ($flag2) { if (/^gsave/) { print "gsave\n"; print $ARGV[2]," ",$ARGV[3]," translate\n"; } else { print; } }
} close (GRAFIK);
} else { print; } } close (TEXT);
Frank Kroeger --- FKroeger@fks-edv.de
Hope this helps,
... dem schliesze ich mich an ! Alles Gute ! -- mfg / With best regards, Ciao Mikey -- -- Even one moment of life spent cannot be regained for millions of gold coins. Therefore, what greater loss is there than time spent uselessly ? -- -- Thorsten Garrels * th.garrels@t-online.de * Wittmund / Germany --------------------------------------------------------------------- To unsubscribe, e-mail: suse-linux-unsubscribe@suse.com For additional commands, e-mail: suse-linux-help@suse.com