Mikähän olisi järkevin tapa toteuttaa otsikoinnin mukainen toiminto, siten että tulostuksessa toistettaisi rtf:ssä oleva fontti sellaisenaan tulosteeseen.
Nyt käytän tälläistä koodia(löytänyt webistä, ei itse tuotettu :) ja se käyttää aina tuota samaa fonttia. Enkä saa muokattua sellaiseksi, että se toimisi halutulla tavalla. Alla olevaa koodia ei varmaan saa muokattua sellaiseeen muottiin mutta kaikki vinkit otetaan vastaan.
Hjälp olisi poikaa.
Private PrintFont As New Font("Times New Roman", 12)
.
.
'asetellaan teksti määrätylle alueelle ja katsotaan sopiiko se siihen tms.
Dim intLineCount As Int32 = CInt(PrintAreaHeight / PrintFont.Height)
Dim rectPrintingArea As New RectangleF(marginLeft, marginTop, PrintAreaWidth, PrintAreaHeight)
Dim fmt As New StringFormat(StringFormatFlags.LineLimit)
Dim intLinesFilled, intCharsFitted As Int32
ev.Graphics.MeasureString(Mid(tulostettava, intCurrentChar + 1), PrintFont, _
New SizeF(PrintAreaWidth, PrintAreaHeight), fmt, intCharsFitted, intLinesFilled)
ev.Graphics.DrawString(Mid(tulostettava, intCurrentChar + 1), PrintFont, _
Brushes.Black, rectPrintingArea, fmt)
intCurrentChar += intCharsFitted
If intCurrentChar < tulostettava.Length Then
ev.HasMorePages = TrueMoikka Sam76!
Kiitos! Elämä on taas monta astetta helpompaa:)
Aihe on jo aika vanha, joten et voi enää vastata siihen.