Shakie
Erfahrenes Mitglied
Hallo Leute!
Ich hab ein Riesenproblem, obwohl es keins sein dürfte!
Bei meinem Programm werden ein paar Zeilen Text ausgedruckt, das funktioniert auch wunderbar. Nun soll die Schriftart des Textes geändert werden. Da dachte ich mir das stellt man über folgenden Code ein:
(So wie z.B. in diesem Tutorial beschrieben). Allerdings funktioniert das überhaupt nicht! Es wird immer die alphabetisch erste Schriftart der installierten Schriftarten verwendet. Die anderen Eigenschaften der Schriftart wie "Underline", "Bold" oder "Size" lassen sich ohne Probleme verändern, nur eben der Typ der Schriftart selber nicht. Ich muss alles in "Arial" drucken
Meine bisherigen Versuche sind:
Es geht alles nicht. Wenn ich mit dem Debugger durchgehe dann sieht das so aus: ich versuche eine Schriftart zuzuweisen und in der nächsten Zeile steht dann wieder Arial drinn! Dann hab ich es durch rumprobieren auch mal geschafft, dass auf der rechten Seite des Codes "Arial" drinn steht, wo früher "MS Sans Serif" drin stand:
Wenn die Schriftart nicht installiert wäre könnte ich das Problem ja verstehen aber so...Hoffentlich wisst ihr Rat!
Ich hab ein Riesenproblem, obwohl es keins sein dürfte!
Bei meinem Programm werden ein paar Zeilen Text ausgedruckt, das funktioniert auch wunderbar. Nun soll die Schriftart des Textes geändert werden. Da dachte ich mir das stellt man über folgenden Code ein:
Code:
Printer.Font.Name = "Meine Schriftart"
Meine bisherigen Versuche sind:
Code:
Printer.FontName = "MS Sans Serif"
Printer.Font.Name = "MS Sans Serif"
Dim Druckobjekt As Objekt
Druckobjekt=Printer
Druckobjekt.Font.Name = "MS Sans Serif"
Druckobjekt.FontName = "MS Sans Serif"
Dim MeineSchriftart As StdFont
MeineSchriftart.Name = "MS Sans Serif"
Printer.Font = MeineSchrift
Code:
Dim strSchrift As String
strSchrift = "MS Sans Serif"
Printer.Font.Name = strSchrift
-->und jetzt steht in strSchrift "Arial" drin (aber nur manchmal,
ich habs auch nicht wieder geschafft diesen Fehler zu reproduzieren...