Print Preview ActiveX Active Users: 82 / Visits Today: 226
Highest Active Users: 101
Print Preview ActiveX
Home | Profile | Register | Active Topics | Members | Search | FAQ | RSS
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Print Preview
 Help file
 RomanNumber - Function
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic: ParaText - Method Topic Next Topic: PrintHeight - Property  

emiel
Administrator

Belgium
327 Posts

Posted - 07/23/2005 :  14:56:43  Show Profile
Function RomanNumber

Action:

This function returns the Roman number as string from an Arabic value.

Syntax:

RomanNumber ( vArabic As Long ) As String

Remarks:

Example:

The following code:

strRn = Preview.RomanNumber(18)

returns: "xviii"

To get RomanNumbers right alligned you can use the following code:

Dim strRn(25) As String
Dim I as Integer

For I = 1 to 25
    strRn(I) = Preview.RomanNumber(I)
    Preview.AddTextAt strRn, 1000 - Preview.TextWidth(trim(strRn))
Next I

See also:

PageNumberType -> http://www.ppreview.net/forum/topic.asp?TOPIC_ID=414
TextWidth ->

Come and visit :
www.immoassist.com
www.ppreview.net
www.vbdiamond.com
www.d2dsources.com
www.mandix.com

Edited by - emiel on 07/23/2005 15:07:24
Go to Bottom of Page
  Previous Topic: ParaText - Method Topic Next Topic: PrintHeight - Property  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Print Preview ActiveX © Mandix Go To Top Of Page
This page was generated in 0.05 seconds. Powered By: Snitz Forums 2000 Version 3.4.02