home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / bytech / test1.frm < prev    next >
Text File  |  1995-07-27  |  43KB  |  1,468 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "PrintWorks Demo"
  4.    ClientHeight    =   4545
  5.    ClientLeft      =   3375
  6.    ClientTop       =   1335
  7.    ClientWidth     =   4860
  8.    Height          =   4950
  9.    Left            =   3315
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4545
  12.    ScaleWidth      =   4860
  13.    Top             =   990
  14.    Width           =   4980
  15.    Begin CommandButton Command2 
  16.       Caption         =   "Print Only"
  17.       FontBold        =   -1  'True
  18.       FontItalic      =   0   'False
  19.       FontName        =   "System"
  20.       FontSize        =   9.75
  21.       FontStrikethru  =   0   'False
  22.       FontUnderline   =   0   'False
  23.       Height          =   495
  24.       Left            =   2520
  25.       TabIndex        =   1
  26.       Top             =   2520
  27.       Width           =   1815
  28.    End
  29.    Begin DMWIN DMWin8 
  30.       Aspect          =   1
  31.       BackColor       =   &H00C0C0C0&
  32.       BackGroundColor =   &H00000000&
  33.       Caption         =   "Print Only"
  34.       CurrentPoint    =   1
  35.       DeskColor       =   &H00408000&
  36.       DisplayPageNum  =   0
  37.       DocTitle        =   "Document Viewer"
  38.       EdgeColor       =   &H00000000&
  39.       EndAngle        =   360
  40.       FaceColor       =   &H00000000&
  41.       FieldData       =   ""
  42.       FieldID         =   ""
  43.       FieldNumber     =   1
  44.       FieldWidth      =   5
  45.       Filename        =   ""
  46.       FirstPrintPage  =   1
  47.       FormFile        =   ""
  48.       GetXTextPos     =   0
  49.       GetYTextPos     =   0
  50.       Height          =   495
  51.       HideButton      =   -1  'True
  52.       hMetaDC         =   0
  53.       Indent          =   0.5
  54.       Italic          =   0   'False
  55.       Justify         =   0
  56.       Landscape       =   0   'False
  57.       LastPrintPage   =   1
  58.       Left            =   2520
  59.       LineColor       =   &H00000000&
  60.       LineSpacing     =   0.16
  61.       LineWeight      =   0
  62.       LineWeightR     =   0
  63.       MetaFile        =   ""
  64.       MultiLine       =   -1  'True
  65.       NameFont        =   "Arial"
  66.       NumPoints       =   0
  67.       ObjHeight       =   0
  68.       ObjWidth        =   0
  69.       PageTitle       =   "Untitled"
  70.       PaperHeight     =   11
  71.       PaperWidth      =   8.5
  72.       Pattern         =   -1
  73.       PercentScreen   =   95
  74.       PictureScale    =   0
  75.       PrintAll        =   -1  'True
  76.       PrintCurrent    =   0   'False
  77.       PrintDialog     =   -1  'True
  78.       PrintEventOnly  =   -1  'True
  79.       PrintRange      =   0   'False
  80.       PrintText       =   ""
  81.       Radius          =   0
  82.       Resolution      =   300
  83.       Rotation        =   0
  84.       ShadowWidth     =   7
  85.       SizeFont        =   12
  86.       StartAngle      =   0
  87.       StartCloseUp    =   0   'False
  88.       StretchBitmap   =   0   'False
  89.       TemplateFile    =   ""
  90.       ThreeDAngle     =   45
  91.       ThreeDThickness =   0.2
  92.       Top             =   120
  93.       Underline       =   0   'False
  94.       WeightFont      =   3
  95.       Width           =   1815
  96.       X2              =   0
  97.       XPos            =   0
  98.       XPrintOffset    =   0
  99.       Y2              =   0
  100.       YPos            =   0
  101.       YPrintOffset    =   0
  102.    End
  103.    Begin DMWIN DMWin7 
  104.       Aspect          =   1
  105.       BackColor       =   &H00C0C0C0&
  106.       BackGroundColor =   &H00000000&
  107.       Caption         =   "Form & Data"
  108.       CurrentPoint    =   1
  109.       DeskColor       =   &H00008000&
  110.       DisplayPageNum  =   0
  111.       DocTitle        =   "Document Viewer"
  112.       EdgeColor       =   &H00000000&
  113.       EndAngle        =   360
  114.       FaceColor       =   &H00000000&
  115.       FieldData       =   ""
  116.       FieldID         =   ""
  117.       FieldNumber     =   1
  118.       FieldWidth      =   5
  119.       Filename        =   ""
  120.       FirstPrintPage  =   1
  121.       FormFile        =   ""
  122.       GetXTextPos     =   0
  123.       GetYTextPos     =   0
  124.       Height          =   495
  125.       HideButton      =   0   'False
  126.       hMetaDC         =   0
  127.       Indent          =   0.5
  128.       Italic          =   0   'False
  129.       Justify         =   0
  130.       Landscape       =   0   'False
  131.       LastPrintPage   =   1
  132.       Left            =   2520
  133.       LineColor       =   &H00000000&
  134.       LineSpacing     =   0.16
  135.       LineWeight      =   0
  136.       LineWeightR     =   0
  137.       MetaFile        =   ""
  138.       MultiLine       =   -1  'True
  139.       NameFont        =   "Arial"
  140.       NumPoints       =   0
  141.       ObjHeight       =   0
  142.       ObjWidth        =   0
  143.       PageTitle       =   "Untitled"
  144.       PaperHeight     =   11
  145.       PaperWidth      =   8.5
  146.       Pattern         =   -1
  147.       PercentScreen   =   95
  148.       PictureScale    =   0
  149.       PrintAll        =   -1  'True
  150.       PrintCurrent    =   0   'False
  151.       PrintDialog     =   -1  'True
  152.       PrintEventOnly  =   -1  'True
  153.       PrintRange      =   0   'False
  154.       PrintText       =   ""
  155.       Radius          =   0
  156.       Resolution      =   300
  157.       Rotation        =   0
  158.       ShadowWidth     =   7
  159.       SizeFont        =   12
  160.       StartAngle      =   0
  161.       StartCloseUp    =   0   'False
  162.       StretchBitmap   =   0   'False
  163.       TemplateFile    =   ""
  164.       ThreeDAngle     =   45
  165.       ThreeDThickness =   0.2
  166.       Top             =   1920
  167.       Underline       =   0   'False
  168.       WeightFont      =   3
  169.       Width           =   1815
  170.       X2              =   0
  171.       XPos            =   0
  172.       XPrintOffset    =   0
  173.       Y2              =   0
  174.       YPos            =   0
  175.       YPrintOffset    =   0
  176.    End
  177.    Begin DMWIN DMWin6 
  178.       Aspect          =   1
  179.       BackColor       =   &H00C0C0C0&
  180.       BackGroundColor =   &H00000000&
  181.       Caption         =   "Rotated Text"
  182.       CurrentPoint    =   1
  183.       DeskColor       =   &H00408000&
  184.       DisplayPageNum  =   0
  185.       DocTitle        =   "Document Viewer"
  186.       EdgeColor       =   &H00000000&
  187.       EndAngle        =   360
  188.       FaceColor       =   &H00000000&
  189.       FieldData       =   ""
  190.       FieldID         =   ""
  191.       FieldNumber     =   1
  192.       FieldWidth      =   5
  193.       Filename        =   ""
  194.       FirstPrintPage  =   1
  195.       FormFile        =   ""
  196.       GetXTextPos     =   0
  197.       GetYTextPos     =   0
  198.       Height          =   495
  199.       HideButton      =   0   'False
  200.       hMetaDC         =   0
  201.       Indent          =   0.5
  202.       Italic          =   0   'False
  203.       Justify         =   0
  204.       Landscape       =   0   'False
  205.       LastPrintPage   =   1
  206.       Left            =   2520
  207.       LineColor       =   &H00000000&
  208.       LineSpacing     =   0.16
  209.       LineWeight      =   0
  210.       LineWeightR     =   0
  211.       MetaFile        =   ""
  212.       MultiLine       =   -1  'True
  213.       NameFont        =   "Arial"
  214.       NumPoints       =   0
  215.       ObjHeight       =   0
  216.       ObjWidth        =   0
  217.       PageTitle       =   "Untitled"
  218.       PaperHeight     =   11
  219.       PaperWidth      =   8.5
  220.       Pattern         =   -1
  221.       PercentScreen   =   95
  222.       PictureScale    =   0
  223.       PrintAll        =   -1  'True
  224.       PrintCurrent    =   0   'False
  225.       PrintDialog     =   -1  'True
  226.       PrintEventOnly  =   -1  'True
  227.       PrintRange      =   0   'False
  228.       PrintText       =   ""
  229.       Radius          =   0
  230.       Resolution      =   300
  231.       Rotation        =   0
  232.       ShadowWidth     =   7
  233.       SizeFont        =   12
  234.       StartAngle      =   0
  235.       StartCloseUp    =   0   'False
  236.       StretchBitmap   =   0   'False
  237.       TemplateFile    =   ""
  238.       ThreeDAngle     =   45
  239.       ThreeDThickness =   0.2
  240.       Top             =   1320
  241.       Underline       =   0   'False
  242.       WeightFont      =   3
  243.       Width           =   1815
  244.       X2              =   0
  245.       XPos            =   0
  246.       XPrintOffset    =   0
  247.       Y2              =   0
  248.       YPos            =   0
  249.       YPrintOffset    =   0
  250.    End
  251.    Begin DMWIN DMWin5 
  252.       Aspect          =   1
  253.       BackColor       =   &H00C0C0C0&
  254.       BackGroundColor =   &H00000000&
  255.       Caption         =   "Fonts & Text"
  256.       CurrentPoint    =   1
  257.       DeskColor       =   &H00408000&
  258.       DisplayPageNum  =   0
  259.       DocTitle        =   "Document Viewer"
  260.       EdgeColor       =   &H00000000&
  261.       EndAngle        =   360
  262.       FaceColor       =   &H00000000&
  263.       FieldData       =   ""
  264.       FieldID         =   ""
  265.       FieldNumber     =   1
  266.       FieldWidth      =   5
  267.       Filename        =   ""
  268.       FirstPrintPage  =   1
  269.       FormFile        =   ""
  270.       GetXTextPos     =   0
  271.       GetYTextPos     =   0
  272.       Height          =   495
  273.       HideButton      =   0   'False
  274.       hMetaDC         =   0
  275.       Indent          =   0.5
  276.       Italic          =   0   'False
  277.       Justify         =   0
  278.       Landscape       =   0   'False
  279.       LastPrintPage   =   1
  280.       Left            =   2520
  281.       LineColor       =   &H00000000&
  282.       LineSpacing     =   0.16
  283.       LineWeight      =   0
  284.       LineWeightR     =   0
  285.       MetaFile        =   ""
  286.       MultiLine       =   -1  'True
  287.       NameFont        =   "Arial"
  288.       NumPoints       =   0
  289.       ObjHeight       =   0
  290.       ObjWidth        =   0
  291.       PageTitle       =   "Untitled"
  292.       PaperHeight     =   11
  293.       PaperWidth      =   8.5
  294.       Pattern         =   -1
  295.       PercentScreen   =   95
  296.       PictureScale    =   0
  297.       PrintAll        =   -1  'True
  298.       PrintCurrent    =   0   'False
  299.       PrintDialog     =   -1  'True
  300.       PrintEventOnly  =   -1  'True
  301.       PrintRange      =   0   'False
  302.       PrintText       =   ""
  303.       Radius          =   0
  304.       Resolution      =   300
  305.       Rotation        =   0
  306.       ShadowWidth     =   7
  307.       SizeFont        =   12
  308.       StartAngle      =   0
  309.       StartCloseUp    =   0   'False
  310.       StretchBitmap   =   0   'False
  311.       TemplateFile    =   ""
  312.       ThreeDAngle     =   45
  313.       ThreeDThickness =   0.2
  314.       Top             =   720
  315.       Underline       =   0   'False
  316.       WeightFont      =   3
  317.       Width           =   1815
  318.       X2              =   0
  319.       XPos            =   0
  320.       XPrintOffset    =   0
  321.       Y2              =   0
  322.       YPos            =   0
  323.       YPrintOffset    =   0
  324.    End
  325.    Begin DMWIN DMWin4 
  326.       Aspect          =   1
  327.       BackColor       =   &H00C0C0C0&
  328.       BackGroundColor =   &H00000000&
  329.       Caption         =   "Filled Objects"
  330.       CurrentPoint    =   1
  331.       DeskColor       =   &H00408000&
  332.       DisplayPageNum  =   0
  333.       DocTitle        =   "Document Viewer"
  334.       EdgeColor       =   &H00000000&
  335.       EndAngle        =   360
  336.       FaceColor       =   &H00000000&
  337.       FieldData       =   ""
  338.       FieldID         =   ""
  339.       FieldNumber     =   1
  340.       FieldWidth      =   5
  341.       Filename        =   ""
  342.       FirstPrintPage  =   1
  343.       FormFile        =   ""
  344.       GetXTextPos     =   0
  345.       GetYTextPos     =   0
  346.       Height          =   495
  347.       HideButton      =   0   'False
  348.       hMetaDC         =   0
  349.       Indent          =   0.5
  350.       Italic          =   0   'False
  351.       Justify         =   0
  352.       Landscape       =   0   'False
  353.       LastPrintPage   =   1
  354.       Left            =   480
  355.       LineColor       =   &H00000000&
  356.       LineSpacing     =   0.16
  357.       LineWeight      =   0
  358.       LineWeightR     =   0
  359.       MetaFile        =   ""
  360.       MultiLine       =   -1  'True
  361.       NameFont        =   "Arial"
  362.       NumPoints       =   0
  363.       ObjHeight       =   0
  364.       ObjWidth        =   0
  365.       PageTitle       =   "Untitled"
  366.       PaperHeight     =   11
  367.       PaperWidth      =   8.5
  368.       Pattern         =   -1
  369.       PercentScreen   =   95
  370.       PictureScale    =   0
  371.       PrintAll        =   -1  'True
  372.       PrintCurrent    =   0   'False
  373.       PrintDialog     =   -1  'True
  374.       PrintEventOnly  =   -1  'True
  375.       PrintRange      =   0   'False
  376.       PrintText       =   ""
  377.       Radius          =   0
  378.       Resolution      =   300
  379.       Rotation        =   0
  380.       ShadowWidth     =   7
  381.       SizeFont        =   12
  382.       StartAngle      =   0
  383.       StartCloseUp    =   0   'False
  384.       StretchBitmap   =   0   'False
  385.       TemplateFile    =   ""
  386.       ThreeDAngle     =   45
  387.       ThreeDThickness =   0.2
  388.       Top             =   1320
  389.       Underline       =   0   'False
  390.       WeightFont      =   3
  391.       Width           =   1815
  392.       X2              =   0
  393.       XPos            =   0
  394.       XPrintOffset    =   0
  395.       Y2              =   0
  396.       YPos            =   0
  397.       YPrintOffset    =   0
  398.    End
  399.    Begin DMWIN DMWin3 
  400.       Aspect          =   1
  401.       BackColor       =   &H00C0C0C0&
  402.       BackGroundColor =   &H00000000&
  403.       Caption         =   "Three-D Pie"
  404.       CurrentPoint    =   1
  405.       DeskColor       =   &H00408000&
  406.       DisplayPageNum  =   0
  407.       DocTitle        =   "Document Viewer"
  408.       EdgeColor       =   &H00000000&
  409.       EndAngle        =   360
  410.       FaceColor       =   &H00000000&
  411.       FieldData       =   ""
  412.       FieldID         =   ""
  413.       FieldNumber     =   1
  414.       FieldWidth      =   5
  415.       Filename        =   ""
  416.       FirstPrintPage  =   1
  417.       FormFile        =   ""
  418.       GetXTextPos     =   0
  419.       GetYTextPos     =   0
  420.       Height          =   495
  421.       HideButton      =   0   'False
  422.       hMetaDC         =   0
  423.       Indent          =   0.5
  424.       Italic          =   0   'False
  425.       Justify         =   0
  426.       Landscape       =   0   'False
  427.       LastPrintPage   =   1
  428.       Left            =   480
  429.       LineColor       =   &H00000000&
  430.       LineSpacing     =   0.16
  431.       LineWeight      =   0
  432.       LineWeightR     =   0
  433.       MetaFile        =   ""
  434.       MultiLine       =   -1  'True
  435.       NameFont        =   "Arial"
  436.       NumPoints       =   0
  437.       ObjHeight       =   0
  438.       ObjWidth        =   0
  439.       PageTitle       =   "Untitled"
  440.       PaperHeight     =   11
  441.       PaperWidth      =   8.5
  442.       Pattern         =   -1
  443.       PercentScreen   =   95
  444.       PictureScale    =   0
  445.       PrintAll        =   -1  'True
  446.       PrintCurrent    =   0   'False
  447.       PrintDialog     =   -1  'True
  448.       PrintEventOnly  =   -1  'True
  449.       PrintRange      =   0   'False
  450.       PrintText       =   ""
  451.       Radius          =   0
  452.       Resolution      =   300
  453.       Rotation        =   0
  454.       ShadowWidth     =   7
  455.       SizeFont        =   12
  456.       StartAngle      =   0
  457.       StartCloseUp    =   0   'False
  458.       StretchBitmap   =   0   'False
  459.       TemplateFile    =   ""
  460.       ThreeDAngle     =   45
  461.       ThreeDThickness =   0.2
  462.       Top             =   2520
  463.       Underline       =   0   'False
  464.       WeightFont      =   3
  465.       Width           =   1815
  466.       X2              =   0
  467.       XPos            =   0
  468.       XPrintOffset    =   0
  469.       Y2              =   0
  470.       YPos            =   0
  471.       YPrintOffset    =   0
  472.    End
  473.    Begin DMWIN DMWin2 
  474.       Aspect          =   1
  475.       BackColor       =   &H00C0C0C0&
  476.       BackGroundColor =   &H00000000&
  477.       Caption         =   "Three-D Bar"
  478.       CurrentPoint    =   1
  479.       DeskColor       =   &H00408000&
  480.       DisplayPageNum  =   0
  481.       DocTitle        =   "Document Viewer"
  482.       EdgeColor       =   &H00000000&
  483.       EndAngle        =   360
  484.       FaceColor       =   &H00000000&
  485.       FieldData       =   ""
  486.       FieldID         =   ""
  487.       FieldNumber     =   1
  488.       FieldWidth      =   5
  489.       Filename        =   ""
  490.       FirstPrintPage  =   1
  491.       FormFile        =   ""
  492.       GetXTextPos     =   0
  493.       GetYTextPos     =   0
  494.       Height          =   495
  495.       HideButton      =   0   'False
  496.       hMetaDC         =   0
  497.       Indent          =   0.5
  498.       Italic          =   0   'False
  499.       Justify         =   0
  500.       Landscape       =   0   'False
  501.       LastPrintPage   =   1
  502.       Left            =   480
  503.       LineColor       =   &H00000000&
  504.       LineSpacing     =   0.16
  505.       LineWeight      =   0
  506.       LineWeightR     =   0
  507.       MetaFile        =   ""
  508.       MultiLine       =   -1  'True
  509.       NameFont        =   "Arial"
  510.       NumPoints       =   0
  511.       ObjHeight       =   0
  512.       ObjWidth        =   0
  513.       PageTitle       =   "Untitled"
  514.       PaperHeight     =   11
  515.       PaperWidth      =   8.5
  516.       Pattern         =   -1
  517.       PercentScreen   =   95
  518.       PictureScale    =   0
  519.       PrintAll        =   -1  'True
  520.       PrintCurrent    =   0   'False
  521.       PrintDialog     =   -1  'True
  522.       PrintEventOnly  =   -1  'True
  523.       PrintRange      =   0   'False
  524.       PrintText       =   ""
  525.       Radius          =   0
  526.       Resolution      =   300
  527.       Rotation        =   0
  528.       ShadowWidth     =   7
  529.       SizeFont        =   12
  530.       StartAngle      =   0
  531.       StartCloseUp    =   0   'False
  532.       StretchBitmap   =   0   'False
  533.       TemplateFile    =   ""
  534.       ThreeDAngle     =   0
  535.       ThreeDThickness =   0.2
  536.       Top             =   1920
  537.       Underline       =   0   'False
  538.       WeightFont      =   3
  539.       Width           =   1815
  540.       X2              =   0
  541.       XPos            =   0
  542.       XPrintOffset    =   0
  543.       Y2              =   0
  544.       YPos            =   0
  545.       YPrintOffset    =   0
  546.    End
  547.    Begin DMWIN DMWin1 
  548.       Aspect          =   1
  549.       BackColor       =   &H00C0C0C0&
  550.       BackGroundColor =   &H00000000&
  551.       Caption         =   "Line Objects"
  552.       CurrentPoint    =   1
  553.       DeskColor       =   &H00408000&
  554.       DisplayPageNum  =   0
  555.       DocTitle        =   "Document Viewer"
  556.       EdgeColor       =   &H00000000&
  557.       EndAngle        =   360
  558.       FaceColor       =   &H00000000&
  559.       FieldData       =   ""
  560.       FieldID         =   ""
  561.       FieldNumber     =   1
  562.       FieldWidth      =   5
  563.       Filename        =   ""
  564.       FirstPrintPage  =   1
  565.       FormFile        =   ""
  566.       GetXTextPos     =   0
  567.       GetYTextPos     =   0
  568.       Height          =   495
  569.       HideButton      =   0   'False
  570.       hMetaDC         =   0
  571.       Indent          =   0.5
  572.       Italic          =   0   'False
  573.       Justify         =   0
  574.       Landscape       =   0   'False
  575.       LastPrintPage   =   1
  576.       Left            =   480
  577.       LineColor       =   &H00000000&
  578.       LineSpacing     =   0.16
  579.       LineWeight      =   0
  580.       LineWeightR     =   0
  581.       MetaFile        =   ""
  582.       MultiLine       =   -1  'True
  583.       NameFont        =   "Arial"
  584.       NumPoints       =   0
  585.       ObjHeight       =   0
  586.       ObjWidth        =   0
  587.       PageTitle       =   "Untitled"
  588.       PaperHeight     =   11
  589.       PaperWidth      =   8.5
  590.       Pattern         =   -1
  591.       PercentScreen   =   95
  592.       PictureScale    =   0
  593.       PrintAll        =   -1  'True
  594.       PrintCurrent    =   0   'False
  595.       PrintDialog     =   -1  'True
  596.       PrintEventOnly  =   -1  'True
  597.       PrintRange      =   0   'False
  598.       PrintText       =   ""
  599.       Radius          =   0
  600.       Resolution      =   300
  601.       Rotation        =   0
  602.       ShadowWidth     =   7
  603.       SizeFont        =   12
  604.       StartAngle      =   0
  605.       StartCloseUp    =   0   'False
  606.       StretchBitmap   =   0   'False
  607.       TemplateFile    =   ""
  608.       ThreeDAngle     =   0
  609.       ThreeDThickness =   0
  610.       Top             =   720
  611.       Underline       =   0   'False
  612.       WeightFont      =   3
  613.       Width           =   1815
  614.       X2              =   0
  615.       XPos            =   0
  616.       XPrintOffset    =   0
  617.       Y2              =   0
  618.       YPos            =   0
  619.       YPrintOffset    =   0
  620.    End
  621.    Begin CommandButton Command1 
  622.       Caption         =   "Quit"
  623.       Height          =   735
  624.       Left            =   480
  625.       TabIndex        =   0
  626.       Top             =   3240
  627.       Width           =   3855
  628.    End
  629. End
  630. Declare Function MoveTo Lib "GDI" (ByVal hdc%, ByVal x%, ByVal y%) As Integer
  631. Declare Function LineTo Lib "GDI" (ByVal hdc%, ByVal x%, ByVal y%) As Integer
  632.  
  633. Sub Command1_Click ()
  634.  
  635.     End
  636.  
  637. End Sub
  638.  
  639. Sub Command2_Click ()
  640.         
  641. ' Create the document
  642.         DMWin8.DocTitle = "Print Only Demo"
  643.     DMWin8.CreateDocument = True
  644.  
  645. ' Create the first page
  646.         DMWin8.PageTitle = "Page 1"
  647.         DMWin8.TemplateFile = "dmwin.tf"
  648.         DMWin8.PaperWidth = 8.5
  649.         DMWin8.PaperHeight = 11#
  650.         DMWin8.Resolution = 300
  651.     DMWin8.CreatePage = True
  652.  
  653. ' Add a metafile
  654.         DMWin8.MetaFile = "dmwin.wmf"
  655.         DMWin8.XPos = .1
  656.         DMWin8.YPos = .1
  657.         DMWin8.ObjWidth = 1
  658.         DMWin8.ObjHeight = 1
  659.     DMWin8.MergeMetaFile = True
  660.  
  661. ' Add the form
  662.         DMWin8.FormFile = "dmwin.wmf"
  663.     DMWin8.MergeForm = True
  664.  
  665. ' Add the data
  666.     DMWin8.ClearFields = True
  667.  
  668.         DMWin8.FieldNumber = 1
  669.         DMWin8.FieldData = "John R. Smith"
  670.     DMWin8.FillFieldNumber = True
  671.  
  672.         DMWin8.FieldNumber = 2
  673.         DMWin8.FieldData = "21 Oriole Lane"
  674.     DMWin8.FillFieldNumber = True
  675.  
  676.         DMWin8.FieldNumber = 3
  677.         DMWin8.FieldData = "White Plains, NY"
  678.     DMWin8.FillFieldNumber = True
  679.  
  680. ' Create page 2
  681.         DMWin8.PageTitle = "Page 2"
  682.         DMWin8.TemplateFile = "dmwin.tf"
  683.         DMWin8.PaperWidth = 8.5
  684.         DMWin8.PaperHeight = 11#
  685.         DMWin8.Resolution = 300
  686.     DMWin8.CreatePage = True
  687.  
  688. ' Add the form
  689.         DMWin8.FormFile = "dmwin.wmf"
  690.     DMWin8.MergeForm = True
  691.  
  692. ' Add data
  693.     DMWin8.ClearFields = True
  694.  
  695.         DMWin8.FieldID = "IDG_NAME"
  696.         DMWin8.FieldData = "Billy T. Kidd"
  697.     DMWin8.FillFieldID = True
  698.  
  699.         DMWin8.FieldID = "IDG_ADDRESS1"
  700.         DMWin8.FieldData = "Boot Hill"
  701.     DMWin8.FillFieldID = True
  702.  
  703.         DMWin8.FieldID = "IDG_ADDRESS2"
  704.         DMWin8.FieldData = "Dodge City, KS"
  705.     DMWin8.FillFieldID = True
  706.  
  707. ' Choose one of five print options
  708.     PrintOption% = 5
  709.     If PrintOption% = 1 Then
  710.     ' Set up Option 1 - All Pages
  711.         DMWin8.PrintAll = True
  712.         DMWin8.PrintDialog = False
  713.     ElseIf PrintOption% = 2 Then
  714.     ' Set up Option 2 - Range of pages (the range is entire doc,
  715.     '                   since we only have 2 pages)
  716.         DMWin8.PrintAll = False
  717.         DMWin8.PrintDialog = False
  718.         DMWin8.FirstPrintPage = 1
  719.         DMWin8.LastPrintPage = 2
  720.     ElseIf PrintOption% = 3 Then
  721.     ' Set up Option 3 - First page only
  722.         DMWin8.PrintAll = False
  723.         DMWin8.PrintDialog = False
  724.         DMWin8.FirstPrintPage = 1
  725.         DMWin8.LastPrintPage = 1
  726.     ElseIf PrintOption% = 4 Then
  727.     ' Set up Option 4 - Last page only
  728.         DMWin8.PrintAll = False
  729.         DMWin8.PrintDialog = False
  730.         DMWin8.FirstPrintPage = 2
  731.         DMWin8.LastPrintPage = 2
  732.     ' Set up Option 5 - Use built in print dialog
  733.     ElseIf PrintOption% = 5 Then
  734.         DMWin8.PrintAll = False
  735.         DMWin8.PrintDialog = True
  736.         DMWin8.FirstPrintPage = 2
  737.         DMWin8.LastPrintPage = 2
  738.     End If
  739.     
  740. ' Print the document
  741.     DMWin8.PrintDocument = True
  742.  
  743. ' Delete the document - DON'T FORGET THIS STEP
  744.     DMWin8.DeleteDocument = True
  745.  
  746. End Sub
  747.  
  748. Sub DMWin1_ClickIn ()
  749.  
  750. ' Create the document
  751.         DMWin1.DocTitle = "Line Objects Demo"
  752.     DMWin1.CreateDocument = True
  753.  
  754. ' Create the page
  755.         DMWin1.PageTitle = "Page 1"
  756.         DMWin1.TemplateFile = ""
  757.         DMWin1.PaperWidth = 8.5
  758.         DMWin1.PaperHeight = 11#
  759.         DMWin1.Resolution = 300
  760.         DMWin1.Landscape = False
  761.     DMWin1.CreatePage = True
  762.  
  763. ' Direct GDI API calls
  764.     success% = MoveTo(DMWin1.hMetaDC, 0, 0)
  765.     success% = LineTo(DMWin1.hMetaDC, 330, 230)
  766.  
  767. ' Various line weights
  768.         DMWin1.LineColor = RGB(0, 0, 0)
  769.         DMWin1.XPos = .5
  770.         DMWin1.X2 = 2
  771.         y! = 1
  772.     For i% = 1 To 10
  773.             DMWin1.YPos = y!
  774.             DMWin1.Y2 = y!
  775.             DMWin1.LineWeight = i%
  776.         DMWin1.DrawLine = True
  777.         y! = y! + .1
  778.     Next i%
  779.  
  780. ' Diagonal lines
  781.         DMWin1.LineColor = RGB(255, 0, 0)
  782.         DMWin1.LineWeight = 1
  783.         DMWin1.XPos = 3
  784.         DMWin1.YPos = 1
  785.         DMWin1.X2 = 4
  786.         DMWin1.Y2 = 2
  787.     DMWin1.DrawLine = True
  788.         DMWin1.XPos = 4
  789.         DMWin1.X2 = 3
  790.     DMWin1.DrawLine = True
  791.  
  792. ' Rectangle
  793.         DMWin1.XPos = .25
  794.         DMWin1.YPos = .25
  795.         DMWin1.X2 = 8.25
  796.         DMWin1.Y2 = 10.75
  797.         DMWin1.LineColor = RGB(0, 0, 0)
  798.         DMWin1.LineWeight = 1
  799.     DMWin1.Rectangle = True
  800.         DMWin1.XPos = 5
  801.         DMWin1.YPos = .5
  802.         DMWin1.X2 = 7
  803.         DMWin1.Y2 = 2
  804.         DMWin1.LineColor = RGB(0, 0, 255)
  805.         DMWin1.LineWeightR = 12 / DMWin1.Resolution
  806.     DMWin1.Rectangle = True
  807.         DMWin1.XPos = 5 + .01
  808.         DMWin1.YPos = .5 + .01
  809.         DMWin1.X2 = 7 - .01
  810.         DMWin1.Y2 = 2 - .01
  811.         DMWin1.LineColor = RGB(255, 0, 255)
  812.         DMWin1.LineWeight = 3
  813.     DMWin1.Rectangle = True
  814.     
  815. ' Circles with various aspects
  816.         DMWin1.LineColor = RGB(0, 0, 0)
  817.         DMWin1.XPos = 1.5
  818.         DMWin1.YPos = 4
  819.         DMWin1.Radius = 1
  820.         DMWin1.Aspect = 1
  821.         DMWin1.StartAngle = 0
  822.         DMWin1.EndAngle = 360
  823.         DMWin1.LineWeightR = 0
  824.     DMWin1.DrawCircle = True
  825.         DMWin1.XPos = 4
  826.         DMWin1.Aspect = 1.5
  827.     DMWin1.DrawCircle = True
  828.         DMWin1.XPos = 6.5
  829.         DMWin1.Aspect = .75
  830.     DMWin1.DrawCircle = True
  831.  
  832. ' Arcs
  833.         DMWin1.XPos = 1.5
  834.         DMWin1.YPos = 7
  835.         DMWin1.Radius = 1
  836.         DMWin1.Aspect = 1
  837.         DMWin1.StartAngle = 30
  838.         DMWin1.EndAngle = 160
  839.         DMWin1.LineWeight = 3
  840.     DMWin1.DrawCircle = True
  841.         DMWin1.XPos = 4
  842.         DMWin1.StartAngle = 160
  843.         DMWin1.EndAngle = 30
  844.     DMWin1.DrawCircle = True
  845.     
  846. ' Pie
  847.         DMWin1.XPos = 6.5
  848.         DMWin1.StartAngle = 210
  849.         DMWin1.EndAngle = 330
  850.     DMWin1.Pie = True
  851.     
  852.     DMWin1.Preview = True
  853.  
  854. End Sub
  855.  
  856. Sub DMWin2_ClickIn ()
  857.         
  858. ' Create the document
  859.         DMWin2.DocTitle = "Three-D Bar Demo"
  860.         DMWin2.DeskColor = RGB(255, 255, 255)
  861.     DMWin2.CreateDocument = True
  862.  
  863. ' Create the page
  864.         DMWin2.PageTitle = "Page 1"
  865.         DMWin2.TemplateFile = ""
  866.         DMWin2.PaperWidth = 8.5
  867.         DMWin2.PaperHeight = 11#
  868.         DMWin2.Resolution = 300
  869.     DMWin2.CreatePage = True
  870.  
  871. ' Horizontal line for bitmap background demo
  872.         DMWin2.XPos = 0
  873.         DMWin2.YPos = .2
  874.         DMWin2.X2 = 5
  875.         DMWin2.Y2 = .2
  876.         DMWin2.LineColor = 0
  877.     DMWin2.DrawLine = True
  878.  
  879. ' Add bitmap from disk - Opaque
  880.         DMWin2.Filename = "cat.bmp"
  881.         DMWin2.XPos = .5
  882.         DMWin2.YPos = .1
  883.         DMWin2.ObjWidth = .35
  884.         DMWin2.ObjHeight = .35
  885.         DMWin2.StretchBitmap = True
  886.         DMWin2.FaceColor = RGB(255, 255, 0)
  887.         DMWin2.BackGroundColor = RGB(255, 0, 255)
  888.         DMWin2.MakeOpaque = True
  889.     DMWin2.DrawBitmap = True
  890.  
  891. ' Add bitmap from disk - Transparent
  892.         DMWin2.Filename = "cat.bmp"
  893.         DMWin2.XPos = 2.5
  894.         DMWin2.YPos = .1
  895.         DMWin2.ObjWidth = .35
  896.         DMWin2.ObjHeight = .35
  897.         DMWin2.StretchBitmap = True
  898.         DMWin2.FaceColor = RGB(255, 255, 0)
  899.         DMWin2.BackGroundColor = RGB(255, 0, 255)
  900.         DMWin2.MakeTransparent = True
  901.     DMWin2.DrawBitmap = True
  902.  
  903. ' Three-D Bar with patterned face
  904.         DMWin2.FaceColor = RGB(0, 255, 255)
  905.         DMWin2.EdgeColor = RGB(0, 0, 255)
  906.         DMWin2.BackGroundColor = RGB(192, 192, 0)
  907.         DMWin2.ObjWidth = .4
  908.         DMWin2.ObjHeight = .85
  909.         DMWin2.XPos = .25
  910.         DMWin2.YPos = 1.5
  911.         DMWin2.Pattern = 3
  912.         DMWin2.ThreeDThickness = .1
  913.         DMWin2.ThreeDAngle = 45
  914.     DMWin2.ThreeDBar = True
  915.  
  916. ' Three-D Bar with solid face
  917.         DMWin2.XPos = 1
  918.         DMWin2.Pattern = -1
  919.         DMWin2.ObjHeight = 1.25
  920.     DMWin2.ThreeDBar = True
  921.  
  922. ' Stacked Three-D Bar
  923.         DMWin2.XPos = 1.75
  924.         DMWin2.ObjHeight = .7
  925.         DMWin2.FaceColor = RGB(0, 255, 255)
  926.         DMWin2.Pattern = -1
  927.     DMWin2.ThreeDBar = True
  928.         DMWin2.YPos = DMWin2.YPos - DMWin2.ObjHeight
  929.         DMWin2.ObjHeight = 1 - DMWin2.ObjHeight
  930.         DMWin2.FaceColor = RGB(0, 255, 0)
  931.         DMWin2.Pattern = -1
  932.     DMWin2.ThreeDBar = True
  933.  
  934. ' Add bitmap from disk
  935.         DMWin2.Filename = "cat.bmp"
  936.         DMWin2.XPos = .1
  937.         DMWin2.YPos = .1
  938.         DMWin2.ObjWidth = .35
  939.         DMWin2.ObjHeight = .35
  940.         DMWin2.StretchBitmap = True
  941.         DMWin2.FaceColor = RGB(0, 0, 0)
  942.         DMWin2.BackGroundColor = RGB(255, 255, 255)
  943.     DMWin2.DrawBitmap = True
  944.  
  945. ' Save Page to disk metafile
  946.         DMWin2.Filename = "saved.wmf"
  947.     DMWin2.SavePage = True
  948.  
  949. ' Start preview close up
  950.     DMWin2.StartCloseUp = True
  951.  
  952. ' Preview
  953.     DMWin2.Preview = True
  954.  
  955. End Sub
  956.  
  957. Sub DMWin3_ClickIn ()
  958.  
  959. ' Create the document
  960.         DMWin3.DocTitle = "Three-D Pie Demo"
  961.     DMWin3.CreateDocument = True
  962.  
  963. ' Create the page
  964.         DMWin3.PageTitle = "Page 1"
  965.         DMWin3.TemplateFile = ""
  966.         DMWin3.PaperWidth = 8.5
  967.         DMWin3.PaperHeight = 11#
  968.         DMWin3.Resolution = 300
  969.     DMWin3.CreatePage = True
  970.  
  971. ' Three-D pie with patterned face
  972.         DMWin3.Pattern = 2
  973.         DMWin3.XPos = 5
  974.         DMWin3.YPos = 3
  975.         DMWin3.Radius = 1.5
  976.         DMWin3.Aspect = 1.2
  977.         DMWin3.StartAngle = 30
  978.         DMWin3.EndAngle = 120
  979.         DMWin3.ThreeDThickness = 1
  980.         DMWin3.FaceColor = RGB(0, 128, 128)
  981.         DMWin3.EdgeColor = RGB(0, 0, 255)
  982.     DMWin3.ThreeDPie = True
  983.  
  984. ' Three-D pie with solid face
  985.         DMWin3.Pattern = -1
  986.         DMWin3.XPos = 2
  987.         DMWin3.YPos = 3
  988.     DMWin3.ThreeDPie = True
  989.  
  990. ' Three-D Pie Chart
  991.         DMWin3.YPos = 7
  992.         DMWin3.XPos = 4.5
  993.         DMWin3.Aspect = .75
  994.         DMWin3.StartAngle = 60
  995.         DMWin3.EndAngle = 120
  996.         DMWin3.Pattern = -1
  997.         DMWin3.EdgeColor = RGB(0, 0, 255)
  998.         DMWin3.FaceColor = RGB(255, 255, 0)
  999.         DMWin3.ThreeDThickness = .4
  1000.     DMWin3.ThreeDPie = True
  1001.         DMWin3.StartAngle = 120
  1002.         DMWin3.EndAngle = 240
  1003.         DMWin3.FaceColor = RGB(255, 0, 255)
  1004.     DMWin3.ThreeDPie = True
  1005.         DMWin3.StartAngle = 340
  1006.         DMWin3.EndAngle = 60
  1007.         DMWin3.FaceColor = RGB(255, 0, 0)
  1008.     DMWin3.ThreeDPie = True
  1009.         DMWin3.YPos = 7.275
  1010.         DMWin3.XPos = 4.675
  1011.         DMWin3.StartAngle = 240
  1012.         DMWin3.EndAngle = 340
  1013.         DMWin3.FaceColor = RGB(0, 255, 255)
  1014.     DMWin3.ThreeDPie = True
  1015.  
  1016.     DMWin3.Preview = True
  1017.  
  1018. End Sub
  1019.  
  1020. Sub DMWin4_ClickIn ()
  1021.  
  1022. ' Create Document
  1023.         DMWin4.DocTitle = "Filled Objects Demo"
  1024.         DMWin4.DeskColor = RGB(192, 192, 192)
  1025.     DMWin4.CreateDocument = True
  1026.  
  1027. ' Create Page
  1028.         DMWin4.PageTitle = "Page 1"
  1029.         DMWin4.TemplateFile = ""
  1030.         DMWin4.PaperWidth = 8.5
  1031.         DMWin4.PaperHeight = 11#
  1032.         DMWin4.Resolution = 300
  1033.     DMWin4.CreatePage = True
  1034.  
  1035. ' Filled Rectangle with solid face
  1036.         DMWin4.LineWeight = 5
  1037.         DMWin4.XPos = 1
  1038.         DMWin4.YPos = 1
  1039.         DMWin4.X2 = 3
  1040.         DMWin4.Y2 = 3
  1041.         DMWin4.FaceColor = RGB(255, 255, 0)
  1042.         DMWin4.EdgeColor = RGB(0, 255, 0)
  1043.         DMWin4.BackGroundColor = RGB(0, 255, 0)
  1044.         DMWin4.Pattern = -1
  1045.     DMWin4.FillRectangle = True
  1046.  
  1047. ' Filled Rectangle with patterned face
  1048.         DMWin4.LineWeight = 5
  1049.         DMWin4.XPos = 4
  1050.         DMWin4.YPos = 1
  1051.         DMWin4.X2 = 6
  1052.         DMWin4.Y2 = 3
  1053.         DMWin4.FaceColor = RGB(255, 255, 0)
  1054.         DMWin4.EdgeColor = RGB(0, 255, 0)
  1055.         DMWin4.BackGroundColor = RGB(0, 255, 0)
  1056.         DMWin4.Pattern = 5
  1057.     DMWin4.FillRectangle = True
  1058.  
  1059. ' Filled Polygon with solid face
  1060.     ReDim x!(4), y!(4)
  1061.         x!(1) = 1: y!(1) = 4
  1062.         x!(2) = 3: y!(2) = 4.5
  1063.         x!(3) = 1.5: y!(3) = 5.5
  1064.         x!(4) = .75: y!(4) = 4.3
  1065.     For i% = 1 To 4
  1066.         DMWin4.XPos = x!(i%)
  1067.         DMWin4.YPos = y!(i%)
  1068.         DMWin4.CurrentPoint = i%
  1069.         DMWin4.SetPoint = True
  1070.     Next i%
  1071.         DMWin4.NumPoints = 4
  1072.         DMWin4.Pattern = -1
  1073.     DMWin4.FillPolygon = True
  1074.  
  1075. ' Filled Polygon with patterned face
  1076.     For i% = 1 To 4
  1077.         DMWin4.XPos = x!(i%) + 3
  1078.         DMWin4.YPos = y!(i%)
  1079.         DMWin4.CurrentPoint = i%
  1080.         DMWin4.SetPoint = True
  1081.     Next i%
  1082.         DMWin4.NumPoints = 4
  1083.         DMWin4.Pattern = 0
  1084.     DMWin4.FillPolygon = True
  1085.  
  1086. ' Filled Pie with solid face
  1087.         DMWin4.LineWeight = 3
  1088.         DMWin4.XPos = 2
  1089.         DMWin4.YPos = 7
  1090.         DMWin4.Radius = 1.5
  1091.         DMWin4.Aspect = .75
  1092.         DMWin4.StartAngle = 300
  1093.         DMWin4.EndAngle = 240
  1094.         DMWin4.Pattern = -1
  1095.         DMWin4.FaceColor = RGB(255, 255, 0)
  1096.         DMWin4.EdgeColor = RGB(0, 0, 0)
  1097.     DMWin4.FillCircle = True
  1098.  
  1099. ' Filled Pie with opaque patterned face
  1100.         DMWin4.XPos = 3
  1101.         DMWin4.Pattern = 5
  1102.         DMWin4.MakeOpaque = True
  1103.     DMWin4.FillCircle = True
  1104.  
  1105. ' Filled Pie with transparent patterned face
  1106.         DMWin4.XPos = 4
  1107.         DMWin4.Pattern = 5
  1108.         DMWin4.MakeTransparent = True
  1109.     DMWin4.FillCircle = True
  1110.  
  1111. ' Preview
  1112.         DMWin4.DeskColor = RGB(192, 192, 192)
  1113.     DMWin4.Preview = True
  1114.  
  1115. End Sub
  1116.  
  1117. Sub DMWin5_ClickIn ()
  1118.  
  1119. ' Create the document
  1120.         DMWin5.DocTitle = "Fonts & Text Demo"
  1121.     DMWin5.CreateDocument = True
  1122.  
  1123. ' Create the page
  1124.         DMWin5.PageTitle = "Page 1"
  1125.         DMWin5.TemplateFile = ""
  1126.         DMWin5.PaperWidth = 8.5
  1127.         DMWin5.PaperHeight = 11#
  1128.         DMWin5.Resolution = 300
  1129.     DMWin5.CreatePage = True
  1130.  
  1131. ' Select a font
  1132.         DMWin5.NameFont = "Arial"
  1133.         DMWin5.SizeFont = 18#
  1134.         DMWin5.WeightFont = 5        ' medium
  1135.         DMWin5.Italic = False
  1136.         DMWin5.Underline = False
  1137.         DMWin5.Rotation = 0          ' portrait
  1138.         'DMWin5.Rotation = 90         ' landscape
  1139.         'DMWin5.Rotation = 180        ' reverse portrait
  1140.         'DMWin5.Rotation = 270        ' reverse landscape
  1141.     DMWin5.SelectFont = True
  1142.  
  1143. ' Print some text - left justified
  1144.         DMWin5.XPos = 1
  1145.         DMWin5.YPos = 1.5
  1146.         DMWin5.PrintText = "This is left justified."
  1147.         DMWin5.FieldWidth = 5
  1148.         DMWin5.Indent = 0
  1149.         DMWin5.LineSpacing = 1 / 4
  1150.         DMWin5.Justify = 0
  1151.         DMWin5.MultiLine = False
  1152.     DMWin5.Paragraph = True
  1153.  
  1154. ' Print some text - centered
  1155.         DMWin5.LineColor = RGB(255, 0, 0)
  1156.         DMWin5.YPos = 2
  1157.         DMWin5.PrintText = "This is centered."
  1158.         DMWin5.Justify = 1
  1159.     DMWin5.Paragraph = True
  1160.  
  1161. ' Print some text - right justified
  1162.         DMWin5.LineColor = RGB(0, 0, 255)
  1163.         DMWin5.YPos = 2.5
  1164.         DMWin5.PrintText = "This is right justified"
  1165.         DMWin5.Justify = 2
  1166.     DMWin5.Paragraph = True
  1167.  
  1168. ' Print some text - fully justified
  1169.         DMWin5.LineColor = RGB(0, 0, 0)
  1170.         DMWin5.Indent = .4
  1171.         DMWin5.YPos = 3
  1172.         DMWin5.PrintText = "This is some fully justified text with word wrap and indentation."
  1173.         DMWin5.Justify = 3
  1174.         DMWin4.MultiLine = True
  1175.     DMWin5.Paragraph = True
  1176.  
  1177. ' Print some text - decimal aligned
  1178.         DMWin5.LineColor = RGB(0, 0, 0)
  1179.         DMWin5.Indent = 0
  1180.         DMWin5.XPos = 3
  1181.         DMWin5.Justify = 4
  1182.         DMWin5.YPos = 4
  1183.         DMWin5.PrintText = "$ 1,000.00  <- Decimal aligned"
  1184.     DMWin5.Paragraph = True
  1185.         DMWin5.YPos = 4.25
  1186.         DMWin5.PrintText = "59.99"
  1187.     DMWin5.Paragraph = True
  1188.         DMWin5.YPos = 4.5
  1189.         DMWin5.PrintText = "12,032.45"
  1190.     DMWin5.Paragraph = True
  1191.         DMWin5.YPos = 4.75
  1192.         DMWin5.PrintText = "750.00"
  1193.     DMWin5.Paragraph = True
  1194.         DMWin5.WeightFont = 7
  1195.     DMWin5.SelectFont = True
  1196.  
  1197.         DMWin5.Justify = 4
  1198.         DMWin5.YPos = 5.15
  1199.         DMWin5.PrintText = "Total: $  13,842.44"
  1200.     DMWin5.Paragraph = True
  1201.  
  1202. ' Draw some guide lines (box)
  1203.     If DMWin5.Rotation = 0 Then
  1204.         DMWin5.XPos = 1
  1205.         DMWin5.YPos = 1
  1206.         DMWin5.X2 = 6
  1207.         DMWin5.Y2 = 6
  1208.     ElseIf DMWin5.Rotation = 90 Then
  1209.         DMWin5.XPos = 1
  1210.         DMWin5.YPos = 5
  1211.         DMWin5.X2 = 6
  1212.         DMWin5.Y2 = 10
  1213.     ElseIf DMWin5.Rotation = 180 Then
  1214.         DMWin5.XPos = 2.5
  1215.         DMWin5.YPos = 5
  1216.         DMWin5.X2 = 7.5
  1217.         DMWin5.Y2 = 10
  1218.     ElseIf DMWin5.Rotation = 270 Then
  1219.         DMWin5.XPos = 2.5
  1220.         DMWin5.YPos = 1
  1221.         DMWin5.X2 = 7.5
  1222.         DMWin5.Y2 = 6
  1223.     End If
  1224.         DMWin5.LineWeight = 1
  1225.         DMWin5.LineColor = 0
  1226.     DMWin5.Rectangle = True
  1227.         
  1228.         DMWin5.XPrintOffset = .25
  1229.         DMWin5.YPrintOffset = .25
  1230.     DMWin5.Preview = True
  1231.  
  1232. End Sub
  1233.  
  1234. Sub DMWin6_ClickIn ()
  1235.  
  1236. ' Create the document
  1237.         DMWin6.DocTitle = "Rotated Text Demo"
  1238.     DMWin6.CreateDocument = True
  1239.  
  1240. ' Create the page
  1241.         DMWin6.PageTitle = "Page 1"
  1242.         DMWin6.TemplateFile = ""
  1243.         DMWin6.PaperWidth = 8.5
  1244.         DMWin6.PaperHeight = 11#
  1245.         DMWin6.Resolution = 300
  1246.     DMWin6.CreatePage = True
  1247.     
  1248. ' Set text properties
  1249.     DMWin6.XPos = 4.25
  1250.     DMWin6.YPos = 5.5
  1251.     DMWin6.PrintText = "       Rotated Text"
  1252.     DMWin6.FieldWidth = 5
  1253.     DMWin6.Indent = 0
  1254.     DMWin6.MultiLine = False
  1255.     DMWin6.LineSpacing = 1 / 4
  1256.     DMWin6.Justify = 0
  1257.  
  1258. ' Display circle of text objects
  1259.     For i% = 5 To 355 Step 20
  1260.     ' Select rotated font
  1261.             DMWin6.NameFont = "Arial"
  1262.             DMWin6.SizeFont = 36#
  1263.             DMWin6.WeightFont = 7        ' bold
  1264.             DMWin6.Italic = False
  1265.             DMWin6.Underline = False
  1266.             DMWin6.Rotation = i%          ' portrait
  1267.         DMWin6.SelectFont = True
  1268.     
  1269.     ' Print text
  1270.         DMWin6.Paragraph = True
  1271.  
  1272.     Next i%
  1273.  
  1274. ' Preview
  1275.         DMWin6.PrintEventOnly = True
  1276.     DMWin6.Preview = True
  1277.  
  1278. End Sub
  1279.  
  1280. Sub DMWin6_PreviewClosing ()
  1281.  
  1282.     MsgBox "Preview Closing."
  1283.  
  1284. End Sub
  1285.  
  1286. Sub DMWin6_PrintEvent ()
  1287.  
  1288.     MsgBox "Print Event Fired."
  1289.  
  1290. End Sub
  1291.  
  1292. Sub DMWin7_ClickIn ()
  1293.         
  1294. ' Create the document
  1295.         DMWin7.DocTitle = "Multiple Page Form & Data Demo"
  1296.     DMWin7.CreateDocument = True
  1297.  
  1298. ' Create the first page
  1299.         DMWin7.PageTitle = "Page 1"
  1300.         DMWin7.TemplateFile = "dmwin.tf"
  1301.         DMWin7.PaperWidth = 8.5
  1302.         DMWin7.PaperHeight = 11#
  1303.         DMWin7.Landscape = False
  1304.         DMWin7.Resolution = 300
  1305.     DMWin7.CreatePage = True
  1306.  
  1307. ' Add some text and graphics
  1308. ' Select a font
  1309.         DMWin7.NameFont = "Arial"
  1310.         DMWin7.SizeFont = 18#
  1311.         DMWin7.WeightFont = 5        ' medium
  1312.         DMWin7.Italic = False
  1313.         DMWin7.Underline = False
  1314.         DMWin7.Rotation = 0          ' portrait
  1315.     DMWin7.SelectFont = True
  1316.  
  1317. ' Print some text - left justified
  1318.         DMWin7.XPos = 1
  1319.         DMWin7.YPos = 5.5
  1320.         DMWin7.PrintText = "Sample text"
  1321.         DMWin7.FieldWidth = 5
  1322.         DMWin7.Indent = 0
  1323.         DMWin7.LineSpacing = 1 / 4
  1324.         DMWin7.Justify = 0
  1325.         DMWin7.MultiLine = False
  1326.     DMWin7.Paragraph = True
  1327. ' Draw a cross hairs
  1328.         DMWin7.XPos = 1
  1329.         DMWin7.YPos = 5
  1330.         DMWin7.X2 = 1
  1331.         DMWin7.Y2 = 6
  1332.     DMWin7.DrawLine = True
  1333.         DMWin7.XPos = .5
  1334.         DMWin7.YPos = 5.5
  1335.         DMWin7.X2 = 1.5
  1336.         DMWin7.Y2 = 5.5
  1337.     DMWin7.DrawLine = True
  1338.  
  1339. ' Add a metafile
  1340.         DMWin7.MetaFile = "bird.wmf"
  1341.         DMWin7.XPos = .5
  1342.         DMWin7.YPos = 2.5
  1343.         DMWin7.ObjWidth = 1
  1344.         DMWin7.ObjHeight = .85
  1345.     DMWin7.MergeMetaFile = True
  1346.  
  1347. ' Add a form
  1348.         DMWin7.FormFile = "dmwin.wmf"
  1349.     DMWin7.MergeForm = True
  1350.  
  1351. ' Add the data
  1352.     DMWin7.ClearFields = True
  1353.  
  1354.         DMWin7.FieldNumber = 1
  1355.         DMWin7.FieldData = "John R. Smith"
  1356.     DMWin7.FillFieldNumber = True
  1357.  
  1358.         DMWin7.FieldNumber = 2
  1359.         DMWin7.FieldData = "21 Oriole Lane"
  1360.     DMWin7.FillFieldNumber = True
  1361.  
  1362.         DMWin7.FieldNumber = 3
  1363.         DMWin7.FieldData = "White Plains, NY"
  1364.     DMWin7.FillFieldNumber = True
  1365.  
  1366. ' Create the second page using Metric Units
  1367.         DMWin7.PageTitle = "Page 2 - Metric Units"
  1368.         DMWin7.TemplateFile = "dmwinmet.tf"
  1369.         DMWin7.PaperWidth = 21.59
  1370.         DMWin7.PaperHeight = 27.94
  1371.         DMWin7.Landscape = False
  1372.         DMWin7.Resolution = 118.11
  1373.     DMWin7.CreatePage = True
  1374.  
  1375. ' Add some text and graphics
  1376. ' Select a font
  1377.         DMWin7.NameFont = "Arial"
  1378.         DMWin7.SizeFont = 18# * 2.54
  1379.         DMWin7.WeightFont = 5        ' medium
  1380.         DMWin7.Italic = False
  1381.         DMWin7.Underline = False
  1382.         DMWin7.Rotation = 0          ' portrait
  1383.     DMWin7.SelectFont = True
  1384.  
  1385. ' Print some text - left justified
  1386.         DMWin7.XPos = 1 * 2.54
  1387.         DMWin7.YPos = 5.5 * 2.54
  1388.         DMWin7.PrintText = "Sample text"
  1389.         DMWin7.FieldWidth = 5 * 2.54
  1390.         DMWin7.Indent = 0
  1391.         DMWin7.LineSpacing = 1 * 2.54 / 4
  1392.         DMWin7.Justify = 0
  1393.         DMWin7.MultiLine = False
  1394.     DMWin7.Paragraph = True
  1395. ' Draw a cross hairs
  1396.         DMWin7.XPos = 1 * 2.54
  1397.         DMWin7.YPos = 5 * 2.54
  1398.         DMWin7.X2 = 1 * 2.54
  1399.         DMWin7.Y2 = 6 * 2.54
  1400.     DMWin7.DrawLine = True
  1401.         DMWin7.XPos = .5 * 2.54
  1402.         DMWin7.YPos = 5.5 * 2.54
  1403.         DMWin7.X2 = 1.5 * 2.54
  1404.         DMWin7.Y2 = 5.5 * 2.54
  1405.     DMWin7.DrawLine = True
  1406.  
  1407. ' Add a form
  1408.         DMWin7.FormFile = "dmwinmet.wmf"
  1409.     DMWin7.MergeForm = True
  1410.  
  1411. ' Add a metafile
  1412.         DMWin7.MetaFile = "bird.wmf"
  1413.         DMWin7.XPos = 1.27
  1414.         DMWin7.YPos = 6.35
  1415.         DMWin7.ObjWidth = 2.54
  1416.         DMWin7.ObjHeight = 2.16
  1417.     DMWin7.MergeMetaFile = True
  1418.  
  1419. ' Add the data
  1420.     DMWin7.ClearFields = True
  1421.  
  1422.         DMWin7.FieldID = "IDG_NAME"
  1423.         DMWin7.FieldData = "Billy T. Kidd"
  1424.     DMWin7.FillFieldID = True
  1425.  
  1426.         DMWin7.FieldID = "IDG_ADDRESS1"
  1427.         DMWin7.FieldData = "Boot Hill"
  1428.     DMWin7.FillFieldID = True
  1429.  
  1430.         DMWin7.FieldID = "IDG_ADDRESS2"
  1431.         DMWin7.FieldData = "Dodge City, KS"
  1432.     DMWin7.FillFieldID = True
  1433.  
  1434. ' Create the third page - landscape orientation
  1435.         DMWin7.PageTitle = "Page 3 - Landscape Orientation"
  1436.         DMWin7.TemplateFile = ""
  1437.         DMWin7.PaperWidth = 11#
  1438.         DMWin7.PaperHeight = 8.5
  1439.         DMWin7.Landscape = True
  1440.         DMWin7.Resolution = 300
  1441.     DMWin7.CreatePage = True
  1442.  
  1443. ' Select a font
  1444.         DMWin7.NameFont = "Arial"
  1445.         DMWin7.SizeFont = 18#
  1446.         DMWin7.WeightFont = 5        ' medium
  1447.         DMWin7.Italic = False
  1448.         DMWin7.Underline = False
  1449.         DMWin7.Rotation = 0          ' portrait
  1450.     DMWin7.SelectFont = True
  1451.  
  1452. ' Print some text - left justified
  1453.         DMWin7.XPos = 1
  1454.         DMWin7.YPos = 1.5
  1455.         DMWin7.PrintText = "Sample landscape text."
  1456.         DMWin7.FieldWidth = 5
  1457.         DMWin7.Indent = 0
  1458.         DMWin7.LineSpacing = 1 / 4
  1459.         DMWin7.Justify = 0
  1460.         DMWin7.MultiLine = False
  1461.     DMWin7.Paragraph = True
  1462.  
  1463. ' Preview it
  1464.     DMWin7.Preview = True
  1465.  
  1466. End Sub
  1467.  
  1468.