Auftragsbeschreibung - Schriftgröße
Joachim Burkard
auf dem Rechnungs-/ Auftragsformular kann ja
eine Auftragsbeschreibung eingegeben werden
die dann unter der Re.Nr. auf dem Formular steht.
Wo kann ich da die Schriftgrösse ändern und was
muß ich da eingeben?
--
MfG
Joachim Burkard
Joachim Burkard
"Joachim Burkard" <pos...@web.de> schrieb im Newsbeitrag
news:DqKqBEE...@star.lexware.de...
Keiner einen Tipp oder ne Lösung?
MfG
Joachim Burkard
Uwe Weickenmeier
bewirkt, das die datei gespeichert und kompiliert wird. Das kompilieren ist
wichtig, damit Lexware die Änderung mitbekommt.
Falls irgendetwas schief gelaufen ist, bekommen Sie im unteren Fenster eine
Fehlermeldung.
So ich hoffe jetzt habe ich an alles gedacht.
Nette Grüße aus Herford sendet
Uwe Weickenmeier
Team www.Sonderhomepage.de --- User helfen Usern (UhU)
Uwe Weickenmeier
da müssen Sie händisch in die vmb-Datei eingreifen, sprich Sie müssen
programmieren. Trauen Sie sich das zu?
Vorgehensweise:
Rechnung wählen und "Drucken". Im Auswahlfenster "Druck Auftrag" den Button
"Formulardatei bearbeiten..." wählen.
Im Auswahlfenster "Formularlayout" betätigen Sie den Button "Bearbeiten"
(Formularrahmen). Die Meldung die erscheint mit "OK" quittieren. Nun suchen
Sie den Abschnitt:
Function PrintBetreffText(Schriftart1 as FontType, Schriftart2 as
FontType)
Scrollen Sie nun nach unten, bis Sie den Eintrag
SelectFont(Schriftart2)
finden. Ändern Sie "Schriftart2" nach z.B. "ARIAL_12"
Mögliche Werte:
ARIAL_5
ARIAL_6
ARIAL_7
ARIAL_8
ARIAL_9
ARIAL_10
ARIAL_11
ARIAL_12
ARIAL_13
ARIAL_14
ARIAL_15
ARIAL_16
ARIAL_20
ARIAL_24
ARIAL_KURSIV_5
ARIAL_KURSIV_6
ARIAL_KURSIV_7
ARIAL_KURSIV_8
ARIAL_KURSIV_9
ARIAL_KURSIV_10
ARIAL_KURSIV_11
ARIAL_KURSIV_12
ARIAL_KURSIV_13
ARIAL_KURSIV_14
ARIAL_KURSIV_15
ARIAL_KURSIV_16
ARIAL_KURSIV_20
ARIAL_KURSIV_24
ARIAL_FETT_5
ARIAL_FETT_6
ARIAL_FETT_7
ARIAL_FETT_8
ARIAL_FETT_9
ARIAL_FETT_10
ARIAL_FETT_11
ARIAL_FETT_12
ARIAL_FETT_13
ARIAL_FETT_14
ARIAL_FETT_15
ARIAL_FETT_16
ARIAL_FETT_20
ARIAL_FETT_24
ARIAL_FETT_KURSIV_6
ARIAL_FETT_KURSIV_8
ARIAL_FETT_KURSIV_10
ARIAL_FETT_KURSIV_12
ARIAL_FETT_KURSIV_14
ARIAL_FETT_KURSIV_16
ARIAL_FETT_KURSIV_20
ARIAL_FETT_KURSIV_24
Ich hoffe das reicht, falls nicht bitte erneut posten.
Udo Netzel [Team Sonderhomepage]
news:hp3qprq...@star.lexware.de...
> Scrollen Sie nun nach unten, bis Sie den Eintrag
>
> SelectFont(Schriftart2)
>
> finden. Ändern Sie "Schriftart2" nach z.B. "ARIAL_12"
>
> Mögliche Werte: ...
Hallo Uwe,
es sind *alle* auf dem Rechner installierten Schriftarten möglich. Ich
hätte auch nicht *die* Zeile geändert, sondern viel weiter oben! Dort
gibt es in den Abfragen folgenden Block:
'Schriftparameter für 1. Betrefftext
Dim SchriftFontBetrefftext1 as String = "Arial"
Dim SchriftGroesseBetrefftext1 as numeric = 14
Dim SchriftTypBetrefftext1 as numeric = FONT_NORMAL
Dim SchriftFarbeBetrefftext1 as numeric = COLOR_BLACK
'1. Schriftart für Betrefftext
Dim SchriftArtBetrefftext1 as FontType =
CreateFont(SchriftFontBetrefftext1, SchriftGroesseBetrefftext1,
SchriftTypBetrefftext1, SchriftFarbeBetrefftext1)
'2. Schriftart für Betrefftext
Dim SchriftArtBetrefftext2 as FontType = CreateFont(Arial_10)
Man ändert einfach die letzte Zeile in
Dim SchriftArtBetrefftext2 as FontType = CreateFont("Musterschrift",
9, Font_Normal, Color_Black")
In der DruckNT Hilfe unter "CreateFont" findet man die Optionen für
diesen Befehl.
--
Freundliche Grüße aus Berlin
Udo Netzel
Joachim Burkard
Hallo Herr Weickenmeier,
der Tipp hat geholfen, funktionert alles, Danke.
Änderungen habe ich schon öfters vorgenommen,
auch in der layout.vmb, aber diesmal wußte ich
einfach nicht weiter.
MfG
Joachim Burkard
Uwe Weickenmeier
> es sind *alle* auf dem Rechner installierten Schriftarten möglich. Ich
Ja, Du hast recht!
> hätte auch nicht *die* Zeile geändert, sondern viel weiter oben! Dort
> gibt es in den Abfragen folgenden Block:
>
> 'Schriftparameter für 1. Betrefftext
> Dim SchriftFontBetrefftext1 as String = "Arial"
> Dim SchriftGroesseBetrefftext1 as numeric = 14
> Dim SchriftTypBetrefftext1 as numeric = FONT_NORMAL
> Dim SchriftFarbeBetrefftext1 as numeric = COLOR_BLACK
> '1. Schriftart für Betrefftext
> Dim SchriftArtBetrefftext1 as FontType =
> CreateFont(SchriftFontBetrefftext1, SchriftGroesseBetrefftext1,
> SchriftTypBetrefftext1, SchriftFarbeBetrefftext1)
> '2. Schriftart für Betrefftext
> Dim SchriftArtBetrefftext2 as FontType = CreateFont(Arial_10)
>
> Man ändert einfach die letzte Zeile in
>
> Dim SchriftArtBetrefftext2 as FontType = CreateFont("Musterschrift",
> 9, Font_Normal, Color_Black")
Hatte ich zuerst auch gemacht, hatte bei mir keinen erfolg, wurde nicht
genommen (Kompilierung ohne Fehler) die Schrifart zeigte unverändert 9pt an.
Deswegen der vorgeschlagene Weg.
Nette Grüße aus Herford sendet
Uwe Weickenmeier