<!-- METADATA TYPE="typelib" UUID="{DF9225FE-94A4-490D-8CAD-E8366CE621D3}"-->
<%
'Create document
Dim MyDocument
Set MyDocument = Server.CreateObject( "DynamicPDF.Document" )
'Create Page
Dim MyPage
Set MyPage = MyDocument.AddPage()
'Add label to the page
Dim MyLabel
Set MyLabel = MyPage.AddLabel( "Hello World using a default color!", 10, 10, 70, 20 )
MyLabel.TextColor = MyDocument.Colors.Blue
Set CmykLabel = MyPage.AddLabel( "Hello World using CMYK color!", 10, 30, 70, 20 )
CmykLabel.TextColor = MyDocument.Colors.GetCmykColor( 1.0, 0.3, 0.4, 0.3 )
Set RgbLabel = MyPage.AddLabel( "Hello World using RGB color!", 10, 50, 70, 20 )
RgbLabel.TextColor = MyDocument.Colors.GetRgbColor( 0.5, 0.3, 0.6 )
Set WebLabel = MyPage.AddLabel( "Hello World using Web color!", 10, 70, 70, 20 )
WebLabel.TextColor = MyDocument.Colors.GetWebColor("FF0080")
Set GrayscaleLabel = MyPage.AddLabel( "Hello World using Grayscale!", 10, 90, 70, 20 )
GrayscaleLabel.TextColor = MyDocument.Colors.GetGrayscale( 0.3 )
Set GradientLabel = MyPage.AddLabel( "Hello World using Gradient", 10, 110, 70, 20 )
GradientLabel.TextColor = MyDocument.Colors.GetGradient( 10, 110, 80, 110, "Red", "Yellow" )
Dim SpotLabel
Set SpotLabel = MyPage.AddLabel( "Hello World using Spot Color!", 10, 130, 70, 20 )
SpotLabel.TextColor = MyDocument.Colors.GetSpotColor( 1, MyDocument.Colors.GetSpotColorInk( "My Red", MyDocument.Colors.GetCmykColor( 0.2, 0.9, 0.5, 0.2 ) ) )
MyDocument.DrawToWeb
Set MyPage = Nothing
Set MyDocument = Nothing
%> |
