Draw picture

Hi,

I have this 3rd party tool to do a print preview on some selected text, how can I show text in the preview? they gave this code which tells me to add my drawing code but I dont know how to do this part so some help would be most grateful

VB Code:

Private Sub IPrintExt_DrawPage(ByVal Options As Variant, ByVal hdc As Long, ByVal Page As EXPRINTLib.IPage, pbContinue As Boolean)
    Dim r As RECT
    GetClipBox hdc, r
    FillRect hdc, r, 1
    
    ' Add your own drawing code
    
End Sub
 
if you need to see the whole project I will post it.
 
Thanks
 
Hugh

Title says: "Draw picture" and message says: "how can I show text in the preview?" ...
So what is it that you need to do - maybe there is a btter way so you wouldn't have to use that 3rd party's code ...

Hi

I mean to preview some text, sorry,

If you have a look at the project below you will see wat I mean.


Thanks Hugh

All it does is this:

VB Code:

Private Sub Command1_Click()
    With Print1
        Set .PrintExt = Me
        .Preview
    End With
End Sub

... and it tels me that you're trying to Print and/or preview your form.
If that's the case then you might be able to use PrintForm method of your form:

VB Code:

Private Sub Command1_Click()
    Me.PrintForm
End Sub

How do I put text onto the preview page?

Thanks

Hugh

You keep saying TEXT without explaining what type of text and where is it comming from, is it formatted or not, does it need to be word-wrapped or not - there are a whole bunch of questions that need to be answered ...

Hi,

The text is from TextBox1 from Form1, does not need to be any certain format.

Thanks

Hugh

In that case the simplest way is use Printer object:

Printer.Print Text1.Text
Printer.EndDoc

But KIM that entire text will not be wrapped - only what can fit into page width - minus margins.
All wrapping will need to be done manually. So my guess is that dll you're advised to use is doing all this hard work for you. :wave:

But that only sends the text to be printed it does not send the text to the preview page.

Thanks

Hugh

The "PREVIEW PAGE" is nothing more but another form with some label or something on it and/or picturebox/image controls for graphics. So, having said that add new form to your project and activate it when you need to preview something:

Load frmPreview
frmPreview.lblText.Caption = Text1.Text
frmPreview.Show vbModal, Me