Subject Re: Print Entryfield Editor
From Akshat Kapoor <akshat.kapoor@kapoorsons.in>
Date Sat, 23 Apr 2022 14:26:28 +0530
Newsgroups dbase.getting-started
Attachment(s) norman.dbf, norman.rep, norman.DBT

Good Afternoon Norman,


>   function PUSHBUTTON11_onClick()
 >        form.entryfield1.value = set('directory')+'\plot_occupation.txt'
 >        oWord = new oleAutoclient("word.application")
 >        oWord.ChangeFileOpenDirectory( set('directory')+'\')
 I have never used word ad oleAutoclient so cannot say for sure But I
would give the following a trial
oWord.ChangeFileOpenDirectory( set('directory'))

>        oWord.documents.open("plot_occupation.txt",false, true )
 >        oWord.activeDocument.printOut()
I can suggest you an alternative if you are not doing any fancy
formatting in Word.

Instead of saving to a txt file append to a memo field and print that
memo field using dbase report designer.

Sample is attached.

It would be much faster. PLUS you are not dependent on microsh???
They change things at will which are damn hard to locate

Untested suggestion
In case you require some formatting add html tags at required locations.
dbase report writer does process some html tags.

Regards
Akshat


** END HEADER -- do not remove this line
//
// Generated on 23.04.2022
//
local r
r = new normanReport()
r.render()

class normanReport of REPORT
   with (this)
      title = "Norman"
      autoSort = false
   endwith

   this.NORMAN1 = new QUERY(this)
   with (this.NORMAN1)
      width = 360.0
      height = 360.0
      sql = 'select * from "C:\dbasetutorial\muneemado\news\norman.dbf"'
      requestLive = false
      active = true
   endwith

   with (this.printer)
      duplex = 1        // None
      orientation = 1        // Portrait
      paperSource = 7
      paperSize = 9
      resolution = 0        // Default
      color = 1        // Monochrome
      trueTypeFonts = 1        // Bitmap
   endwith

   this.PAGETEMPLATE1 = new PAGETEMPLATE(this)
   with (this.PAGETEMPLATE1)
      height = 16837.0
      width = 11905.0
      marginTop = 1080.0
      marginLeft = 1080.0
      marginBottom = 1080.0
      marginRight = 1080.0
      gridLineWidth = 0
   endwith

   this.PAGETEMPLATE1.STREAMFRAME1 = new STREAMFRAME(this.PAGETEMPLATE1)
   with (this.PAGETEMPLATE1.STREAMFRAME1)
      height = 11592.0
      left = 360.0
      top = 1365.0
      width = 9360.0
      form.STREAMFRAME1 = form.pagetemplate1.streamframe1
   endwith

   this.PAGETEMPLATE1.TEXT1 = new TEXT(this.PAGETEMPLATE1)
   with (this.PAGETEMPLATE1.TEXT1)
      height = 524.0
      left = 360.0
      top = 360.0
      width = 1656.0
      prefixEnable = false
      text = "<H1>Norman</H1>"
      form.TEXT1 = form.pagetemplate1.text1
   endwith

   this.PAGETEMPLATE1.TEXT2 = new TEXT(this.PAGETEMPLATE1)
   with (this.PAGETEMPLATE1.TEXT2)
      height = 228.0
      left = 360.0
      top = 915.0
      width = 3090.0
      prefixEnable = false
      text = {||Date()}
      form.TEXT2 = form.pagetemplate1.text2
   endwith

   this.STREAMSOURCE1 = new STREAMSOURCE(this)
   with (this.STREAMSOURCE1.detailBand)
      height = 250.0
   endwith

   this.STREAMSOURCE1.detailBand.TITLETEXTTESTING1 = new TEXT(this.STREAMSOURCE1.detailBand)
   with (this.STREAMSOURCE1.detailBand.TITLETEXTTESTING1)
      canRender = {||this.parent.firstOnFrame}
      height = 293.0
      left = 0.0
      top = 0.0
      width = 5760.0
      prefixEnable = false
      suppressIfBlank = true
      text = "<H3>Testing</H3>"
   endwith

   this.STREAMSOURCE1.detailBand.TEXTTESTING1 = new TEXT(this.STREAMSOURCE1.detailBand)
   with (this.STREAMSOURCE1.detailBand.TEXTTESTING1)
      height = 1.0
      left = 0.0
      top = 293.0
      width = 9165.0
      variableHeight = true
      prefixEnable = false
      text = {||this.form.NORMAN1.rowset.fields["Testing"].value}
   endwith

   with (this.reportGroup.footerBand)
      height = 250.0
   endwith

   with (this.reportGroup.headerBand)
      height = 250.0
   endwith

   this.firstPageTemplate = this.form.pagetemplate1
   this.form.pagetemplate1.nextPageTemplate = this.form.pagetemplate1
   this.form.pagetemplate1.streamframe1.streamSource = this.form.streamsource1
   this.form.streamsource1.rowset = this.form.norman1.rowset

endclass