WatermarkCount プロパティ

サポートされている電子透かしの最大数を取得する。現在、最大数は4。

Property WatermarkCount As Long

長整数型 (読込みのみ)

注意点

なし

使用例


Set oPrinter = CreateObject("easyPDF.Printer.7")

Set oPrintJob = oPrinter.PrintJob

Set oPDFSetting = oPrintJob.PDFSetting



wmarkCount = oPDFSetting.WatermarkCount



For I = 0 To (wmarkCount - 1)



    oPDFSetting.Watermark(I) = True

    oPDFSetting.WatermarkAngle(I) = 45 * I

    oPDFSetting.WatermarkColor(I) = RGB(128, 128, 128)

    oPDFSetting.WatermarkFirstPageOnly(I) = True

    oPDFSetting.WatermarkFontName(I) = "Arial"

    oPDFSetting.WatermarkFontSize(I) = 72

    oPDFSetting.WatermarkOutlineOnly(I) = True

    oPDFSetting.WatermarkText(I) = "Text " + CStr(I + 1)

    oPDFSetting.WatermarkZOrder(I) = PRN_WMARK_ZORDER_TOP



Next I



oPrintJob.PrintOut "C:\input.doc", "C:\output.pdf"