・ｿ

PrintOut3 繝｡繧ｽ繝・ラ

譁・嶌繧単DF繝輔ぃ繧､繝ｫ縺ｸ繝励Μ繝ｳ繝医☆繧九ょ・蜉帙→蜃ｺ蜉帙ヵ繧｡繧､繝ｫ蜈ｱ縺ｫ繝｡繝｢繝ｪ縺ｫ譬ｼ邏阪・

Function PrintOut3(InStream As Variant, FileExtension As String) As Variant

繝代Λ繝｡繝ｼ繧ｿ

InStream

(VT_ARRAY | VT_UI1)繝輔か繝ｼ繝槭ャ繝医・繝舌う繝磯・蛻励・蜈･蜉帙ヵ繧｡繧､繝ｫ

FileExtension

蜈･蜉帙ヵ繧｡繧､繝ｫ繧ｿ繧､繝励ｒ陦ｨ縺吶ヵ繧｡繧､繝ｫ諡｡蠑ｵ蟄舌ゆｾ九∴縺ｰInStream縺粂TML縺ｮ蝣ｴ蜷医：ileExtension縺ｯ".htm"縺ｧ縺ｪ縺代ｌ縺ｰ縺ｪ繧翫∪縺帙ｓ縲・

謌ｻ繧雁､

(VT_ARRAY | VT_UI1)繝輔か繝ｼ繝槭ャ繝医・繝舌う繝磯・蛻励・PDF file

豕ｨ諢冗せ

繝輔ぃ繧､繝ｫ螟画鋤縺御ｸ頑焔縺上＞縺九↑縺九▲縺溷ｴ蜷医√お繝ｩ繝ｼ縺瑚ｵｷ縺薙ｊ縺ｾ縺吶ゆｸ蠎ｦ繧ｨ繝ｩ繝ｼ縺檎匱逕溘＠縺溘ｉ縲∬ｩｳ邏ｰ諠・ｱ繧貞ｾ励ｋ縺薙→縺悟・譚･縺ｾ縺吶・

Note: 繝ｭ繝ｼ繧ｫ繝ｫ繝峨Λ繧､繝紋ｸ・萓九"C:\input.htm")縺ｮHTML繝輔ぃ繧､繝ｫ繧偵・繝ｪ繝ｳ繝医☆繧句ｴ蜷医∝､夜Κ繧ｪ繝悶ず繧ｧ繧ｯ繝医∈縺ｮ蜈ｨ縺ｦ縺ｮ繝ｪ繝ｳ繧ｯ(逕ｻ蜒上ｄ繧ｹ繧ｿ繧､繝ｫ繧ｷ繝ｼ繝・縺ｯ邨ｶ蟇ｾ繝代せ(縺ｾ縺溘・BASE繧ｿ繧ｰ菴ｿ逕ｨ)縺ｧ迚ｹ螳壹＆繧後↑縺上※縺ｯ縺ｪ繧翫∪縺帙ｓ縲・縺ｧ縺ｪ縺代ｌ縺ｰ譁・嶌縺ｯ豁｣縺励￥繝励Μ繝ｳ繝医＆繧後∪縺帙ｓ縲・

菴ｿ逕ｨ萓・/H4>


    On Error GoTo Function_Err

    Set oPrinter = CreateObject("easyPDF.Printer.5")
    Set oPrintJob = oPrinter.PrintJob

    ' HTML繧偵Γ繝｢繝ｪ蜀・↓菴懈・縺励∪縺吶・
    strHTM = "<html><body><center>Hello</center></body></html>"

    ' HTML繧ｹ繝医Μ繝ｳ繧ｰ繧但DO繧ｹ繝医Μ繝ｼ繝繧ｪ繝悶ず繧ｧ繧ｯ繝医ｒ菴ｿ逕ｨ縺励◆繝舌う繝磯・蛻励∈螟画鋤縺励∪縺吶・
    Set oADO = CreateObject("ADODB.Stream")
    oADO.Charset = "Windows-1252"
    oADO.Type = 2 ' 2: adTypeText
    oADO.Open
    oADO.WriteText strHTM
    oADO.Position = 0
    oADO.Type = 1 ' 1: adTypeBinary
    arrHTM = oADO.Read
    oADO.Close

    ' PDF縺ｸ螟画鋤縺励∪縺吶・
    arrPDF = oPrintJob.PrintOut3(arrHTM, ".htm")

    ' ADO繧ｹ繝医Μ繝ｼ繝繧ｪ繝悶ず繧ｧ繧ｯ繝医ｒ菴ｿ逕ｨ縺励◆繝・ぅ繧ｹ繧ｯ縺ｸ繝舌う繝翫Μ繝・・繧ｿ繧担ave縺励∪縺吶・
    oADO.Type = 1 ' 1: adTypeBinary
    oADO.Open
    oADO.Write arrPDF
    Call oADO.SaveToFile("C:\output.pdf", 2) ' 2: adSaveCreateOverwrite
    oADO.Close

    MsgBox "Success!"

Function_End:
    Exit Sub

Function_Err:
    ' 繧ｨ繝ｩ繝ｼ繝｡繝・そ繝ｼ繧ｸ繧竪et縺励∪縺吶・
    MsgBox Err.Description

    ' 繧ｨ繝ｩ繝ｼ逡ｪ蜿ｷ繧堤｢ｺ隱阪＠縺ｾ縺吶・
    If Err.Number = PRN_R_CONVERSION_FAILED Then
        ' 繧ｨ繝ｩ繝ｼ繝｡繝・そ繝ｼ繧ｸ縺ｮ隧ｳ邏ｰ
        MsgBox "Conversion Result: " + oPrintJob.ConversionResultMessage

        ' 繧ｨ繝ｩ繝ｼ繝｡繝・そ繝ｼ繧ｸ縺後・繝ｪ繝ｳ繧ｿ繝峨Λ繧､繝舌°繧画擂縺ｦ縺・ｋ縺ｮ縺九←縺・°遒ｺ隱阪＠縺ｾ縺吶・
        nResult = oPrintJob.ConversionResult
        If nResult = PRN_CR_CONVERSION Or _
           nResult = PRN_CR_CONVERSION_INIT Or _
           nResult = PRN_CR_CONVERSION_PRINT Then
            ' 繝励Μ繝ｳ繧ｿ繝峨Λ繧､繝舌°繧峨・繧ｨ繝ｩ繝ｼ繝｡繝・そ繝ｼ繧ｸ
            MsgBox "Printer Result: " + oPrintJob.PrinterResultMessage

            ' 譖ｴ縺ｫ邨先棡繧呈紛謨ｰ繝輔か繝ｼ繝槭ャ繝医〒Get縺ｧ縺阪∪縺吶・
            nPrinterResult = oPrintJob.PrinterResult
        End If
    End If

    Resume Function_End