Draw picture

[hughPips]

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

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

[RhinoBull]

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 ...

[hughPips]

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

[RhinoBull]

All it does is this:

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:

Private Sub Command1_Click()
    Me.PrintForm
End Sub

[hughPips]

How do I put text onto the preview page?

Thanks

Hugh

[RhinoBull]

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 ...

[hughPips]

Hi,

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

Thanks

Hugh

[RhinoBull]

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.

[hughPips]

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

Thanks

Hugh

[RhinoBull]

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