Gerne doch...ich versuch es mal aus dem Kopf zu beschreiben Dim Mein_Bild As Picture Dim Mein_Graphics As New Graphics Dim Mein_String As New StringShape
Mein_String.Text="Ich bin gedreht!" Mein_String.TextFont="Arial" Mein_String.Rotation=3.1415/2 '90-grad-Drehung Mein_Bild=NewPicture(100,200,2) Mein_Bild.Graphics.DrawObject Mein_String,50,50 Mein_Graphics=OpenPrinterDialog() If Mein_Graphics<>NIL Then Mein_Graphics.DrawPicture Mein_Bild,0,0 End If War glaub ich genau so und klappt auch ganz gut. Irgendwie, ich weis jetzt nicht wie, kann man auch die Größe(bzgl. Weite und Höhe des Strings) bestimmen und dann könnte man das Bild entsprechend erzeugen. Ich hab da ja jetzt nur mal so feste Werte vorgegeben. Wenn ich daheim bin schau ich nochmal wie das ging. Ich brauchte nämlich die Höhe und Weite von Strings beim Drucken damit ich wusste wann ich ne neue Seite einleiten musste. Grüße Michael Am 19.10.2007 17:38 Uhr schrieb "Enno Bussmann" unter <[EMAIL PROTECTED]>: > Michael Köhler schrieb: >> Hab ich eben beim "Testen" auch rausbekommen, dass es nur als Bild zu >> drucken ist...Rossi war da ein wenig schneller. Hab auch RB5.5 >> >> >> > Und wenn du mir jetzt auch noch freundlicherweise erklärt, wie du das in > ein bild malst, dann kapiere ich es hoffentlich endlich mal. > Dazu folgende ausgangssituation: ich habe für einen freund ein programm > begonnen, mit dem er seine videoeinleger drucken kann und alles steht > bis auf die beiden senkrechten beschriftungen, die aus jeweils derselben > textzeile bestehen. > Diese textzeile wird wiederum aus zwei editfields in einem einzigen > fenster zusammengesetzt, sodass man eigentlich den paint-event des > fensters nützen könnte. > Ich habe bewusst auf ein weiteres fenster mit standkorrekturmöglichkeit > verzichtet und alle druckanweisungen im action event eines pushbuttons > untergebracht. > > Danke im Voraus > > enno
