| |
Private job As dcstmp10.tiffstamp 'Object
Private Sub Command1_Click()
If job Is Nothing Then _
Set job = CreateObject("dcstmp10.tiffstamp")
job.CopyMode = cmXOR
job.DefaultDPI = 300
job.CreateDirectories = False
job.ScanSubdirectories = False
job.FontName = "Arial"
job.Halftone = False
job.Labeled = Check2.Value = 1
job.LabelMacro = "@50,42P@30A@0,0C@18H@255,0,0F" + Combo1.Text
job.Page = 0
job.Source = Text1.Text
job.Target = Text2.Text
job.Stamp = Watermark
job.Stamped = Check1.Value = 1
job.StampLeft = 10
job.StampTop = 10
job.Stretched = False
If Not job.Run Then
MsgBox job.ErrorMsg, , "Error during tiffSTAMP"
Else
Label3.Caption = "1 file stamped"
End If
End Sub
|
