New topic: 

Printing Help Needed

<http://forums.realsoftware.com/viewtopic.php?t=47823>

         Page 1 of 1
   [ 1 post ]                 Previous topic | Next topic          Author  
Message        jerryab          Post subject: Printing Help NeededPosted: Wed 
May 08, 2013 2:05 pm                         
Joined: Mon Dec 12, 2011 7:25 pm
Posts: 181
Location: Grand Rapids MI Area                I am having a problem printing a 
header line and the styled text from a text area.

The header line is not part of the text area. I create it from other places.
I can't seem to figure out how to add a header line of text to the text area 
text.

An example report with header looks like this:
____________________________________
 Maintenance Report
 
 Vehicle/Item: Truck
 Maintenance Category:  Oil Change
 Date Preformed: 01/01/2013
____________________________________

Then I want to add the information in the text area to this header.
There is text formatting in the taMaintenanceLog.Text area.
 

Can anyone help ?

// Convert YYYY/MM/DD  to  MM/DD/YYYY
Dim vlbxDates As String = App.DateConversionsCO("YYYY/MM/DDtoMM/DD/YYYY", 
lbxDates.Text, "")
Dim HeaderLine As String
HeaderLine = "Maintenance Report" + EndOfLine + EndOfLine + "Vehicle/Item: " + 
lbxMaintenceVehicle.Text + EndOfLine + "Maintenance Category: " +_
  lbxCategories.Text + EndOfLine + "Date Performed: " + vlbxDates

Dim stp As StyledTextPrinter
Dim g As Graphics
g = OpenPrinterDialog
If g <> Nil Then
  // 72 pixels per inch * 7.5 inches
  Dim textWidth As Integer = 72 * 7.5
  stp = taMaintenanceLog.StyledTextPrinter(g, textWidth)
  Do until stp.EOF
  stp.DrawBlock(0, 0, 72*10)
  if not stp.EOF then
  g.NextPage
  end if
  Loop
End If
      
_________________
iMac 27" (2.8GHz Intel Core i5, 16GB RAM, 1TB Drive) OS X Mountain Lion 10.8.3 
and Windows 7
Toshiba Laptop Running Windows 7, WinXP SP3 and Windows 8
REAL Studio Enterprise Edition 2012r2.1
http://www.theultimatecampgroundlog.com
Being rewritten for the Mac  
                             Top             Display posts from previous: All 
posts1 day7 days2 weeks1 month3 months6 months1 year Sort by AuthorPost 
timeSubject AscendingDescending          Page 1 of 1
   [ 1 post ]      
-- 
Over 1500 classes with 29000 functions in one REALbasic plug-in collection. 
The Monkeybread Software Realbasic Plugin v9.3. 
http://www.monkeybreadsoftware.de/realbasic/plugins.shtml

[email protected]

Reply via email to