FiveTech Support Forums

//--------------------------------
Static Func _LetterPrint( cRtf, oRsLetter )

Local oPrint,nRowStep,nColStep,nMargin,Line,nPage
Local cPicFileName,cDefa,lPicFileName,oImg
Local nTopR,nTopL,nBotR,nBotL
Local nLinCnt,x,cText
Local oFontB,aMargins,nPrint

aMargins := PageGetMargins()
cDefa := set(7)

lPicFileName := .t.
If empty( oRsLetter:Fields("PicFileName"):Value) .or.;
   oRsLetter:Fields("PicFileName"):Value = " "
   lPicFileName := .f.
Else
   cPicFileName := oRsLetter:Fields("PicFileName"):Value
Endif

PRINTER oPRINT FROM USER                ;
PREVIEW MODAL                           ;
NAME "Print Routine for TEST LETTER"

IF EMPTY( oPRINT:hDC )
   MsgInfo ( "Report Cancelled" )
   Return(.f.)
ENDIF

nRowStep := oPrint:nVertRes() / 55      // pixel per line = 57.65 @ 55
nColStep := oPrint:nHorzRes() /130      // columns

oPRINT:StartPage()

nMargin := Int(oPrint:nLogPixelX()*0.2)
LINE    := nMargin
nPage   := 1

oFontB  := TFont():New("Ms Sans Serif",,-6,.F.,.T. ,,,,.F. ) // just used for spacing

If lPicFileName = .t.

   cPicFileName := cDefa+"\MastHead\"+alltrim(cPicFileName)
   DEFINE IMAGE oImg FILENAME cPicFileName

   nTopR  := 0
   nTopL  := 100
   nBotR  := oPrint:nHorzRes()*.9375 // 4500
   nBotL  := oPrint:nVertRes()*.1563 // 1000

   oPrint:SayImage( nTopR, nTopL, oImg, nBotR,nBotL ) 
   oImg:End()

   // calc for cRtf text to start
   Line := (oPrint:nVertRes()*.1570)  // 5331
   msginfo( Line )

Endif

/* ... this is rem'd out and does not work properly
 // Print letter text            123 - 100
*nLinCnt := MlCount( cRtf, 110 )

*msginfo( "nLinCnt" )
*msginfo( nLinCnt )

*IF nLinCnt > 0
*   FOR x := 1 to nLinCnt
*      cText := MemoLine( cRtf, 110, x )
*       oPrint:Say( LINE,(oPrint:nHorzRes()*.07), cText ) //, oFont10b )  // 200
*      Line += oFontb:nHeight
*       Line += oFontb:nHeight
*      Line += oFontb:nHeight
*       Line += oFontb:nHeight
*       Line += oFontb:nHeight
*   NEXT
Endif
*/

aMargins := PageGetMargins()

nPrint := 0
*nLen   := ::Len()

*msginfo( nLen )

nLen := 1

AEval( aMargins, { | x, y | aMargins[ y ] := x * 1440 / 2540 } )

*      do while nPrint < nLen
*         PAGE
            nPrint := REPreview5( ::hWnd, oPrint:hDC, oPrint:hDCOut, aMargins, nPrint )  // obvious self error
*         ENDPAGE
*      enddo


oPRINT:EndPage()
RELEASE FONT oFontB

oPRINT:Preview()

Return(nil)

REDEFINE BTNBMP oBtn1 ID 111 of oUSERS   ;     // ok
         RESOURCE "OK", "DOK", "DOK" ;
         PROMPT "&Ok" LEFT 2007;
         ACTION ( lOk := .t.,;
                  If( lOk = .t., (cLetter := oRtf:GetText(),;
                                  oRsLetter:Fields("Body"):Value := cLetter,;
                                  oRsLetter:Update()),  ),;
                  If( lOk = .t., oUSERS:END(),)  )

cLetter := oRtf:SaveAsRTF()

#include "RichEdi5.ch"

.
.
.
 REDEFINE BTNBMP oBtn1 ID 111 of oUSERS   ;     // ok
         RESOURCE "OK", "DOK", "DOK" ;
         PROMPT "&Ok" LEFT 2007;
         ACTION ( lOk := .t.,;
                  If( lOk = .t., (cLetter := oRtf:SaveAsRTF(),oRsLetter:Fields("Body"):Value := cLetter,;
                                  oRsLetter:Update(),msginfo( cLetter )),  ),;
                  If( lOk = .t., oUSERS:END(),)  )

DEFINE DIALOG oUSERS RESOURCE "LETTER" ;
       TITLE cTITLE              ;

       REDEFINE SAY oSay1 ID 125 OF oUsers UPDATE     // double click
       oSay1:SetFont( oFontB )


       REDEFINE SAY oSay2 ID 126 OF oUsers UPDATE     // double click
       oSay2:SetFont( oFontB )
       oSay2:SetColor( nRgb(7,7,224)) // blue


       IF cMODE = "E" .or. cMode = "A"

          REDEFINE RICHEDIT5 oRtf VAR cRtf ID 130 of oUSERS //UPDATE

       ELSE     // view

          REDEFINE RICHEDIT5 oRtf VAR cRtf ID 130 of oUSERS //READONLY //COLOR CLR_BLACK, 15987697 READONLY
          oRtf:SetReadOnly( .T. )

       ENDIF

       oRtf:SetText( cRtf )
       oRtf:bGotFocus = { || oRtf:SetSel( 0, 0 ) }


       REDEFINE BTNBMP oBtn1 ID 111 of oUSERS   ;     // save to table
         RESOURCE "OK", "DOK", "DOK" ;
         PROMPT "&Ok" LEFT 2007;
         ACTION ( lOk := .t.,;
                  If( lOk = .t., (cLetter := oRtf:SaveAsRTF(),oRsLetter:Fields("Body"):Value := cLetter,;  // <---  save to access memo field
                                  oRsLetter:Update()),  ),;
                  If( lOk = .t., oUSERS:END(),)  )

       REDEFINE BTNBMP oBtn2 ID 112 of oUSERS   ;    // cancel
         RESOURCE "CANCEL", "DCANCEL", "DCANCEL" ;
         PROMPT "&Cancel" LEFT 2007;
         ACTION (lOk := .f., oUSERS:END())


       REDEFINE BTNBMP oBtn3 ID 113 of oUSERS   ;    // test print
         RESOURCE "PRINT25" ;
         PROMPT "Test"+CRLF+"Print" LEFT 2007;
         ACTION ( oRtf:Preview( cRtf ) )

         oUsers:bResized = { | nSizeType, nWidth, nHeight | ResizeControls( nSizeType, nWidth, nHeight, oUsers )}

ACTIVATE DIALOG oUSERS  ;
     ON INIT ( oUsers:Move(100,250) );
     ON PAINT ( GradientFill( hDC, 0, 0, oUsers:nHeight, oUsers:nWidth, xGrad, .T. ));     // note GradientFill
     VALID (!GETKEYSTATE( 27 )) ;  // do not allow esc key here

If cMode = "V"
   cLetter := cOldMemo
Endif

If lOk = .t.
   nLen  := Len( cLetter )

   Do Case
   Case nLen = 0
        cRtPrompt := "Create Letter"
   Case nLen > 0
        cRtPrompt := "View Letter"
   End Case

   oButt3:cCAPTION := cRtPrompt
   * oBtn3:SetColor( "R+/W*" )
   oButt3:ReFresh()
ENdif

LightGreyGrad()

RETURN( NIL )