I have a client who likes to email documents from the Preview screen by clicking the @ button at the top. For the last few days when doing that the pdf file that is created by the preview function is cut in half; only the left hand side of the document appears. And it appears larger than normal so perhaps that's why it is cut off. Any ideas what might be happening? Of course when I use the normal print function and select a pdf writer it works fine but she likes doing it her way as it is faster.
Board index FiveWin for Harbour/xHarbour Emailing from Preview screen
Could you please post some screenshots ?
What data are you previewing ? How do you generate it ?
It happens with any document generated by the program and viewed using the Preview function. My customers do this thousands of times a day with no problem except for this one customer and it just started happening. You know how there is that Factor setting on the Preview screen. Its as though when you click the @ button it also is changing the factor setting to 2. You can even see it enlarge briefly before going to the email screen in Outlook in which the document is displayed with the right half missing and larger than normal as if the factor is set to 2
Has he installed a new printer ?
What has changed on his PC lately ?
Perhaps. I will check. Maybe a System Restore will resolve it? The one thing she reports is that when previewing something someone clicked on that save as Word document button and the problem began after that.
dtussman
You have two or three ways to create e-mail ..
1) Using Cdo
2) Using SMTP
3) Using the clients Outlook Client
Rick Lipkin
Test, Please.
Regards, saludos.
// ..\SAMPLES\PRNPDF.PRG
#Include "FiveWin.ch"
STATIC oWnd
FUNCTION Main()
DEFINE WINDOW oWnd FROM 1, 1 TO 20, 60 TITLE "Printing a PDF"
@ 3, 3 BUTTON "&Print me" OF oWnd SIZE 80, 20 ;
ACTION( ( oWnd:Minimize(), PrintMe() ), oWnd:End() )
ACTIVATE WINDOW oWnd
RETURN NIL
FUNCTION PrintMe()
LOCAL oPrn AS OBJECT
LOCAL cError, cSeqErro, nLin, nLinha, oFont
IF .NOT. FILE( "ERROR.TXT" )
? "ERROR.TXT ??"
BREAK
ENDIF
IF FILE( "ERROR.PDF" )
DELETEFILE( "ERROR.PDF" )
ENDIF
BEGIN SEQUENCE
cSeqErro := MemoRead( "ERROR.TXT" )
cError := ALLTRIM( cSeqErro )
PRINTER oPrn NAME "Test PDF" PREVIEW MODAL
PRINT oPrn PREVIEW FILE "error.pdf"
DEFINE FONT oFont NAME "COURIER NEW" SIZE 0, -10 OF oPrn
oPrn:SetPage(9) // A4
oPrn:SetPortrait() // Vertical
PAGE
nLin := 1
FOR nLinha = 1 TO MLCOUNT( cError, 100 )
SYSREFRESH()
CURSORWAIT()
oPrn:CmSay( nLin := nLin +.4, 1.5, MEMOLINE( cError, 100, nLinha), oFont )
IF nLin > 25
nLin := 1
ENDPAGE
PAGE
ENDIF
NEXT
ENDPAGE
oPrn:lMeta = .T.
ENDPRINT
oFont:End()
END SEQUENCE
RETURN NIL
// FIN / ENDRegards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
For anyone who might be curious, it was an Adobe problem, solved by reinstalling Adobe Acrobat.