RichType Print

[Rick Lipkin]

To All

I am trying to print a RichType letter saved as a variable cRtf ... I know I can use the Print and Preview methods, however, I am adding a stored custom masthead to my RichText. I am struggling to be able to insert richtext after the image .. I can print the image, but trying to adapt The RichText Print method is not working ..

What I am trying to do is print the Custom MastHead then print the RichText after the image .. here is my code ..

Code: Select all | Expand

//--------------------------------Static Func _LetterPrint( cRtf, oRsLetter )Local oPrint,nRowStep,nColStep,nMargin,Line,nPageLocal cPicFileName,cDefa,lPicFileName,oImgLocal nTopR,nTopL,nBotR,nBotLLocal nLinCnt,x,cTextLocal oFontB,aMargins,nPrintaMargins := PageGetMargins()cDefa := set(7)lPicFileName := .t.If empty( oRsLetter:Fields("PicFileName"):Value) .or.;   oRsLetter:Fields("PicFileName"):Value = " "   lPicFileName := .f.Else   cPicFileName := oRsLetter:Fields("PicFileName"):ValueEndifPRINTER oPRINT FROM USER                ;PREVIEW MODAL                           ;NAME "Print Routine for TEST LETTER"IF EMPTY( oPRINT:hDC )   MsgInfo ( "Report Cancelled" )   Return(.f.)ENDIFnRowStep := oPrint:nVertRes() / 55      // pixel per line = 57.65 @ 55nColStep := oPrint:nHorzRes() /130      // columnsoPRINT:StartPage()nMargin := Int(oPrint:nLogPixelX()*0.2)LINE    := nMarginnPage   := 1oFontB  := TFont():New("Ms Sans Serif",,-6,.F.,.T. ,,,,.F. ) // just used for spacingIf 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*   NEXTEndif*/aMargins := PageGetMargins()nPrint := 0*nLen   := ::Len()*msginfo( nLen )nLen := 1AEval( 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*      enddooPRINT:EndPage()RELEASE FONT oFontBoPRINT:Preview()Return(nil)

Any Ideas ... I get the Image to print ( a masthead logo ) but I cannot figure out how to print cRtf out and preserve the formatting and text. Any help would be appreciated.

Rick Lipkin

[cnavarro]

Rick
Insert image before into cRtf and try

[Rick Lipkin]

Cristobal

Your idea is sound .. I have manually cut and pasted a .png image into my richtext with no problem ..



Unfortunitly when I save the file back to the Access Memo field .. the image does not save .. just the text .. here is my code:

Code: Select all | Expand

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(),)  ) 

Is there another method to save Image and text to an Access Memo type Field ?

Thanks
Rick Lipkin

[cnavarro]

Rick, please use METHOD INsertPictureFile or any METHOD Insert..... of Class

[Rick Lipkin]

Cristobal

I am going to tackle the insert picture in code later .. as a test I cut and pasted manually the image..to test .. I just want to save the entire cRtf ( with image ) to the Access Memo type .. ..

Rick Lipkin

[cnavarro]

Rick, try with

after paste image

Code: Select all | Expand

cLetter := oRtf:SaveAsRTF() 

[Rick Lipkin]

Chrstobal

I got a very unexpected result to this code ..

Code: Select all | Expand

#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(),)  ) 

Rick Lipkin

[cnavarro]

Rick

I do not understand well your message

[Rick Lipkin]

Cristobal

Using cLetter := oRtf:SaveAsRTF() ... then interrogating cLetter you get the output above with all the rtf encoding visible in the output.

Rick Lipkin

[cnavarro]

Cristobal

Using cLetter := oRtf:SaveAsRTF() ... then interrogating cLetter you get the output above with all the rtf encoding visible in the output.

Rick Lipkin

Rick
Then, I do not understand well your goal

If you save this code, you save text, format and any object included, no?

[Rick Lipkin]

Cristabol

When you save the variable .. it looks like what you see above .. when you retrieve the value of the memo field as a variable .. it looks exactly the same with all the formatting ( garbage ) .. add an image .. and all you see is trash for the image and formatting garbage for the text ..

I am at a loss .. it seems like RichText is meant to be saved to a file to work properly .. not saved to any type of Memo field .. be it Access or Sql Server.

Rick Lipkin

[cnavarro]

Then, you only Do you want to save the text, nothing else?

[Rick Lipkin]

Cristabol

As Created :


As retrieved :


Rick Lipkin

[cnavarro]

Rick

oRTF:SaveAsRTF(), return all code RichEdit
oRTF:GetText(), return text

Sorry, I do not understand what you need
What do you want to save to the database?

[Rick Lipkin]

Cristabol

I want to create a RTF letter with an Image .. cLetter .. then save the letter to the database .. then re-call the Letter again from the database .. here is the code:

Code: Select all | Expand

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 hereIf cMode = "V"   cLetter := cOldMemoEndifIf 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()ENdifLightGreyGrad()RETURN( NIL )