使用VBScript和FreePDF软件打印html文件

Question

我想问一些关于VBScript的问题：

是否使用火狐浏览器或打开*.html文件，并使用非默认/标准打印机的特殊打印机打印？

背景:我想使用*.pdf软件创建一个FreePDF文件。

数据源是一个本地*.html文件(没有任何图像)。

我可以使用VBScript/VB命令"createobject“来创建一个VB "Application”对象吗？你知道吗..。你用它来创建一个新单词或者excel文件..。

我想使用以下代码：

https://srccode.wordpress.com/2011/01/28/vba-pdf-dokumente-mit-free-pdf-xp-erzeugen/

该网站展示了一种将文件发送到FreePDF软件的方法，这是一种pdf打印机。

在第一步中，您创建一个postscript文件，然后将其发送到FreePDF打印机。

示例:您可以在excel中创建一个新的*.ps，如下所示：

Dim ws As Worksheet
Set ws = Application.ActiveSheet

Dim strDocument As String
strDocument = "C:\tmp\hello"    ' Name der Ausgabedatei ohne Extension

Dim strPostScript As String
strPostScript = strFile & ".ps"

ws.PrintOut , , , , "FreePDF XP", True, , strPostScript

Dim strFilePdf As String
strFilePdf = Replace(strFilePs, ".ps", ".pdf")

Dim oWsc As Object
Dim oExec As Object

Set oWsc = CreateObject("WScript.Shell")

Set oExec = oWsc.Exec(FREEPDFEXE & " /q /o " & strFilePdf & " " & strFilePs)

Do While oExec.Status = 0
    Sleep 200
Loop

Kill strFilePs

Debug.Print oExec.Status

我试着使用firefox和iexplorer实现这一点，但是它没有工作。

有什么新想法吗？

这是可以使用这个pdf打印机软件，因为我不能安装其他客户系统。FreePDF安装在我们交付给客户的每一个系统上。

Answer 1

 OLECMDID_PRINT                  = 6, 
 OLECMDID_PRINTPREVIEW           = 7, 
 OLECMDID_PAGESETUP              = 8, 

ExecWB方法

在OLE对象上执行命令，并使用IOleCommandTarget接口返回命令执行的状态。

语法

object.ExecWB( _
    cmdID As OLECMDID, _
    cmdexecopt As OLECMDEXECOPT, _
    [pvaIn As Variant,] _
    [pvaOut As Variant])

参数

cmdID Long，表示要执行的命令的标识符。有关命令标识符的详细信息，请参阅MSHTML命令标识符。

cmdexecopt

指定命令选项的OLECMDEXECOPT值。

pvaIn

可选。用于指定命令输入参数的变体。

pvaOut

可选。用于指定命令输出参数的变体。

OLECMDEXECOPT枚举指定命令执行选项。此枚举的一个值在IOleCommandTarget::Exec的nCmdExecOpt参数中传递。

typedef enum  
{ 
    OLECMDEXECOPT_DODEFAULT        = 0, 
    OLECMDEXECOPT_PROMPTUSER       = 1, 
    OLECMDEXECOPT_DONTPROMPTUSER    = 2, 
    OLECMDEXECOPT_SHOWHELP         = 3 
} OLECMDEXECOPT;