Umm, what happens when you do this?
On Tuesday, November 26, 2002, at 10:22 PM, Josh Hague wrote:
Give it a try... I've reported it to RealSoftware. I didn't do
anything wrong did I?:
Dim p As PrinterSetup
Dim g As Graphics
Dim b As Boolean
Dim WrapWidth As Integer
Dim StringToDraw As String
p = New PrinterSetup
b = p.PageSetupDialog
If b = True Then
g = OpenPrinterDialog(p)
If g <> Nil Then
g.TextFont = "Monaco"
g.TextSize = 11
StringToDraw = "welcome to the world of macintosh, isn't this
great folks? Yes... yes it is... w00t.. yay and all that other fun
stuff."
WrapWidth = 300
g.DrawString StringToDraw, Abs(p.PageLeft), Abs(p.PageTop) +
g.TextHeight, WrapWidth
g.FillRect Abs(p.PageLeft),Abs(p.PageTop) + g.TextHeight,
WrapWidth,10
End If
End If
--
Kevin Ballard
kevin at sb dot org
http://www.tildesoft.com
Email from Korea or China must go to <kevin dot nb at sb dot org>
---
A searchable archive of this list is available at:
<http://dbserver.realsoftware.com/KBDB/search.php>
Unsubscribe:
<mailto:realbasic-betas-off at lists dot realsoftware dot com>
Subscribe to the digest:
<mailto:realbasic-betas-digest at lists dot realsoftware dot com>
.
|