Do you know of a way to print superscript or subscript?
In my VB code I use this function:
- Code: Select all
Public Function SubScript(ByVal OnOff As Boolean)
If OnOff = True Then
VP1.FontSize = VP1.FontSize - 2
Call VP1.VpePrint(VRIGHT, VP1.nTop + 10, "")
Else
VP1.FontSize = VP1.FontSize + 2
Call VP1.VpePrint(VRIGHT, VP1.nTop - 10, "")
End If
End Function
- Code: Select all
Call VP1.VpePrint(VRIGHT, VTOP, "x")
SubScript(True)
Call VP1.VpePrint(VRIGHT, VTOP, "1")
SubScript(False)
Call VP1.VpePrint(VRIGHT, VTOP, " = 100 meters")
... to print x1 = 100 meter (with "1" subscripted/indiced to "x")
But in this way, the distance between "x" and "1" keeps changing when zooming in the VPE printout.
Also, when creating a PDF file from VPE, it looks different then the way you saw it on the VPE printout.
Does anyone know of a better way to achieve this?
Thanks,
Bas
[edit]
BTW: This behaviour is totaly random.
Somtimes the subscripted letter is 1 centimeter off (1:1 zoom).
And somtimes it fits perfectly....
[/edit]