使用PDFCreate 和 Powershell 自动保存网页为PDF

• 先安装PDF Creator。

　　http://rj.baidu.com/soft/detail/10500.html?ald

• 把他设置为默认打印机。
• 在IE中设置打印页面的边距，页眉页脚等。

Powershell脚本

[CmdletBinding()]
param (

    [Parameter(Mandatory=$False, Position=0, ValueFromPipeline=$false, HelpMessage='Define the Key')]
    [ValidateNotNullOrEmpty()]
    [string]$WorkPlace,
    [Parameter(Mandatory=$False, Position=0, ValueFromPipeline=$false, HelpMessage='Mail to users split with , ')]
    [ValidateNotNullOrEmpty()]
    [string[]]$MailTos

)

# provide the location where the PDF file will be created     #
$OUTPUT_FOLDER="D:\TimeJob\" 

# a name for the PDF file without the extension               #
# without a name the file name is the current timestampt      #
$OUTPUT_FILENAME="" 

# comment following line to add a timestamp to each file gets created
if($OUTPUT_FILENAME.length -eq 0) {$OUTPUT_FILENAME="$WorkPlace" +"_" + (get-date).tostring("yyyyMMdd_HHmmss")} 

#website
$website="http://www.baidu.com" 

#$website="https://www.baidu.com/"
###############################################################
#         DO NOT WRITE ANYTHING BELOW THIS LINE               #
###############################################################
$ErrorActionPreference="Stop"
$WarningPreference="Stop"
$PDFINFOPATH="HKCU:\Software\PDFCreator\Program"
$AUTOSAVEFNAMEPROPERTY="AutoSaveFilename"
$AUTOSAVEDIRPROPERTY="AutoSaveDirectory"
$USEAUTOSAVEPROPERTY="UseAutoSave"
################################################################ 

function WriteScreenLog {
##
## Write a log entry to the screen
## Usage:
##        WriteScreenLog -Message "Message text" [-Type OK|Warning|Error|Info|Verbose] [-printTime]

    Param (
        [Parameter(Mandatory=$True,Position=0)]
        [string]$Message,

        [ValidateSet("OK","Warning","Error", "Info", "Verbose")]
        [string]$Type,

        [switch]$printTime
    )
    $screenXpos = [Math]::Truncate($Host.UI.RawUI.WindowSize.Width - 11)

    # Write the message to the screen
    $now = ""
    if($printTime -eq $true){
            $now = (Get-Date -Format "yyyy-MM-dd HH:mm:ss")
            $now = "$now | "
    }
    $Message = $now + $Message
    Write-Output $Message

    if($Type -ne "") {
    [Console]::SetCursorPosition($screenXpos, $Host.UI.RawUI.CursorPosition.Y-1)
    }
    switch ($Type) {
            "OK" {Write-Host -BackgroundColor Green -ForegroundColor Black  "    OK    "}
            "Warning" {Write-Host -BackgroundColor Yellow -ForegroundColor Black "  Warning "}
            "Error" {Write-Host -ForegroundColor Yellow -BackgroundColor Red  "   Error  "}
            "Info" {Write-Host -BackgroundColor $Host.UI.RawUI.ForegroundColor -ForegroundColor $Host.UI.RawUI.BackgroundColor "   Info   "}
            "Verbose" {Write-Host -BackgroundColor $Host.UI.RawUI.ForegroundColor -ForegroundColor $Host.UI.RawUI.BackgroundColor "  Verbose "}
    }
} 

################################################################
$LogFile="D:\TimeJob\Log\$OUTPUT_FILENAME.txt"
Start-Transcript -Path $LogFile

try
{
    get-itemproperty -path $PDFINFOPATH -name $AUTOSAVEDIRPROPERTY |out-null
    set-itemproperty -path $PDFINFOPATH -name $AUTOSAVEDIRPROPERTY -value $OUTPUT_FOLDER |out-null
}
catch
{
    new-itemproperty -path $PDFINFOPATH -name $AUTOSAVEDIRPROPERTY -value $OUTPUT_FOLDER |out-null    

}
try
{
    get-itemproperty -path $PDFINFOPATH -name $USEAUTOSAVEPROPERTY |out-null
    set-itemproperty -path $PDFINFOPATH -name $USEAUTOSAVEPROPERTY -value "" |out-null
}
catch
{
    new-itemproperty -path $PDFINFOPATH -name $USEAUTOSAVEPROPERTY -value "" |out-null    

}
finally
{
  try
  {
    $ie=new-object -com internetexplorer.application
    $ie.navigate($website)
    #depending upon the website sleep parameters here onwards may need adjustment
    start-sleep -seconds 5
    try
    {
        get-itemproperty -path $PDFINFOPATH -name $AUTOSAVEFNAMEPROPERTY |out-null
        set-itemproperty -path $PDFINFOPATH -name $AUTOSAVEFNAMEPROPERTY -value "$OUTPUT_FILENAME.pdf" |out-null 

    }
    catch
    {
        new-itemproperty -path $PDFINFOPATH -name $AUTOSAVEFNAMEPROPERTY -value "$OUTPUT_FILENAME.pdf" |out-null
    }
    start-sleep -seconds 5
    $ie.execWB(6,2)
    start-sleep -seconds 5
    $ie.quit()
    WriteScreenLog -Message "Success:Save $OUTPUT_FOLDER$OUTPUT_FILENAME.pdf"
    #WriteScreenLog -Message "" -Type INFO -printTime
  }
  catch
  {
    WriteScreenLog -Message "Error:Save $OUTPUT_FOLDER$OUTPUT_FILENAME.pdf" -Type ERROR -printTime
  }
  finally
  {
    try
    {
        WriteScreenLog -Message "Start to sleep 10 seconds for save PDF report"
        Start-Sleep -s 10
        WriteScreenLog -Message "Success:Send $OUTPUT_FOLDER$OUTPUT_FILENAME.pdf to $MailTos"
        #Start-Sleep -s 60
    }
    catch
    {
        WriteScreenLog -Message "Error:Send $OUTPUT_FOLDER$OUTPUT_FILENAME.pdf to $MailTos"
        sendReportEmailError "Error:Send $OUTPUT_FOLDER$OUTPUT_FILENAME.pdf to $MailTos"
    }
    try
    {
        set-itemproperty -path $PDFINFOPATH -name $AUTOSAVEFNAMEPROPERTY -value "" |out-null
        set-itemproperty -path $PDFINFOPATH -name $AUTOSAVEDIRPROPERTY -value "" |out-null
        set-itemproperty -path $PDFINFOPATH -name $USEAUTOSAVEPROPERTY -value "" |out-null
    }
    catch
    {
        WriteScreenLog -Message "Error:Set item property path value"
    }
  }
  if($LogFile)
  {
    Stop-Transcript
  }
}

Bat 调用

ping 127.0.0.1 -n 6 > nul

powershell "D:\TimeJob\PDF.ps1" -WorkPlace "XXXXX" -MailTos "xxxxxxx,xxxxxxx"

ping 127.0.0.1 -n 2 > nul