Aqui falaremos sobre como usar o PowerShell para:

• Consultar uma lista de impressoras (com o custo de impressão), para cada impressora da lista:
  • Consultar a impressora, via SNMP e obter os contadores de impressão;
  • Importar o log do PaperCut;
    • Consultar o AD para obter o setor de cada usuário;
    • Somar quanto cada setor imprimiu;
    • Adicionar a “impressora” como um setor (para considerar as cópias feitas);
    • Organizar a lista dos setores em ordem de gasto, e;
  • Gerar um gráfico com tudo isso;
  • Salvar esse gráfico como uma imagem.

No servidor de impressão de sua empresa, instale o IIS. Dentro do IIS, crie o site (crie também o registro dns) para seu_site.seudominio.com e aponte o conteúdo para C:\inetpub\wwwroot\seu_site

Crie o arquivo C:\inetpub\wwwroot\seu_site\printlist.csv (pode ser com o Excel, salvando com CSV separado por vírgulas), com o seguinte conteúdo (colunas), se atentando a manter exatamente como abaixo (maiúsculas e minúsculas):

No arquivo acima, cadastre as impressoras que desejar (uma em cada nova linha).

Crie também o arquivo C:\inetpub\wwwroot\seu_site\history.csv (da mesma forma que o de cima) com o seguinte conteúdo:

Agora crie seu script PowerShell, com o seguinte conteúdo:

$DestinationFolder = "C:\inetpub\wwwroot\seu_site"
$PaperCutLogFolder = "C:\Program Files (x86)\PaperCut Print Logger\logs\csv\monthly\$PaperCutFile"
#-----------------------------------------------------------------------------------
#    LOADING GRAPH LIBRARIES
#-----------------------------------------------------------------------------------
Add-type -AssemblyName System.Windows.Forms
Add-type -AssemblyName System.Windows.Forms.DataVisualization
#-----------------------------------------------------------------------------------
#    FUNCTIONS
#-----------------------------------------------------------------------------------
Function CalculateTotalsOfAnList{
param(
[PSObject]$List,
[string]$Unique
)
Write-Host "Initializing CalculateTotalsOfAnList"
$List_CalculateTotalsOfAnList = New-Object PSObject
$List_CalculateTotalsOfAnList = @()
$List | select $Unique -Unique | ForEach-Object {
$UniqueValue = $_.$Unique
$dataObject = $null
$dataObject = New-Object PSObject
Add-Member -inputObject $dataObject -memberType NoteProperty -name $Unique -value $UniqueValue
$List | Select-Object -Property * -ExcludeProperty $Unique | Get-Member | Where-Object MemberType -eq "NoteProperty" | ForEach-Object {
$CalculateTotalsOfAnList_Name = $_.Name
Add-Member -inputObject $dataObject -memberType NoteProperty -name $CalculateTotalsOfAnList_Name -value ($List | Where-Object $Unique -eq $UniqueValue | Measure-Object $CalculateTotalsOfAnList_Name -Sum).Sum
}
$List_CalculateTotalsOfAnList += $dataObject
}
Write-Host "CalculateTotalsOfAnList Finished"
return $List_CalculateTotalsOfAnList
}
Function ConvertFromPaperCutLog{
param(
[String]$PaperCutLogFile,
[String]$PrinterName
)
Write-Host "Initializing ConvertFromPaperCutLog"
If (Test-Path -Path $PaperCutLogFile){
$List_ConvertFromPaperCutLog = Get-Content "$PaperCutLogFile" | select -Skip 1 | ConvertFrom-Csv | Where-Object { $_.Printer -like "$PrinterName*" } | select User,Pages,Copies,"Paper Size",Duplex,Grayscale
$List_ConvertFromPaperCutLog | Add-Member -MemberType NoteProperty -Name "PrintedInColor" -Value "0"
$List_ConvertFromPaperCutLog | Add-Member -MemberType NoteProperty -Name "PrintedInBW" -Value "1"
$List_ConvertFromPaperCutLog | Add-Member -MemberType NoteProperty -Name "CountedPages" -Value "1"
$List_ConvertFromPaperCutLog | ForEach-Object {
$_.CountedPages = [Math]::Round([int]$_.Pages*[int]$_.Copies)
If ($_."Paper Size" -eq "A3") { $_.CountedPages = [Math]::Round($_.CountedPages*2) }
#If ($_.Duplex -ne "NOT DUPLEX") { $_.CountedPages = [Math]::Round($_.CountedPages*2) }
If ($_.Grayscale -eq "NOT GRAYSCALE")
{
$_.PrintedInBW = "0"
$_.PrintedInColor = "1"
}
$_.PrintedInBW = [Math]::Round([int]$_.PrintedInBW*[int]$_.CountedPages)
$_.PrintedInColor = [Math]::Round([int]$_.PrintedInColor*[int]$_.CountedPages)
}
$List_ConvertFromPaperCutLog = $List_ConvertFromPaperCutLog | Select-Object -Property * -ExcludeProperty Grayscale,Pages,Copies,"Paper Size",CountedPages,Duplex
Write-Host "ConvertFromPaperCutLog Finished"
Return $List_ConvertFromPaperCutLog
}
Else {
Write-Host "$PaperCutLogFile not found !"
break
}
}
Function ConvertFromListLDAPUsertoSector {
param(
[PSObject]$List,
[String]$UserColumnName
)
Write-Host "Initializing ConvertFromListLDAPUsertoDepartment"
If ($List){
$List_ConvertFromListLDAPUsertoSector = $List
$List_ConvertFromListLDAPUsertoSector | ForEach-Object {
If ($_.$UserColumnName)
{
$department = (Get-ADUser $_.$UserColumnName).department
If ($Department)
{
$_.$UserColumnName = $Department
}
}
}
Write-Host "ConvertFromPaperCutLog Finished"
Return $List_ConvertFromListLDAPUsertoSector
}
Else {
Write-Host "$List not found !"
break
}
}
Function CreateGraph{
# https://www.powershellgallery.com/packages/PScriboCharts/0.9.0/Content/PScriboCharts.psm1
# Area, Bar, BoxPlot, Bubble, Candlestick, Column, Doughnut, ErrorBar, FastLine, FastPoint, Funnel, Kagi, Line, Pie, Point, PointAndFigure, Polar, Pyramid, Radar, Range, RangeBar, RangeColumn, Renko, Spline, SplineArea, SplineRange, StackedArea, StackedArea100, StackedBar, StackedBar100, StackedColumn, StepLine, Stock, ThreeLineBreak
param(
[PSObject]$List,
[String]$SaveAs,
[int]$Width,
[int]$Height,
[String]$ChartType,
[switch]$With3D,
[String]$WithLegendOn,
[String]$MainTitle,
[String]$TitleAxisX,
[String]$TitleAxisy,
[String]$Series1Name,
[String]$Series1Color,
[String]$Series1AxisXSource,
[String]$Series1AxisYSource,
[String]$Series2Name,
[String]$Series2Color,
[String]$Series2AxisXSource,
[String]$Series2AxisYSource
)
If ($ChartType -eq ""){$ChartType = "Column"}
$Chart_PrinterHistory = New-Object System.Windows.Forms.DataVisualization.Charting.Chart
$Chart_PrinterHistory.Width = $Width
$Chart_PrinterHistory.Height = $Height
$Chart_PrinterHistory.Location = '0,500'
If ($WithLegendOn -ne "")
{
$legend = New-Object system.Windows.Forms.DataVisualization.Charting.Legend
$Chart_PrinterHistory.Legends.Add($legend)
$Chart_PrinterHistory.Legends[0].Title = "Legend"
$Chart_PrinterHistory.Legends[0].Docking = $WithLegendOn
}
$ChartTitle_PrinterHistory = New-Object System.Windows.Forms.DataVisualization.Charting.Title
$Chart_PrinterHistory.Titles.Add($ChartTitle_PrinterHistory)
$Chart_PrinterHistory.Titles[0].Font = 'ArialBold, 18pt'
$Chart_PrinterHistory.Titles[0].Text = $MainTitle
$Chart_PrinterHistoryArea = New-Object System.Windows.Forms.DataVisualization.Charting.ChartArea
$Chart_PrinterHistoryArea.Area3DStyle.Enable3D = $With3D.ToBool()
$Chart_PrinterHistoryArea.Area3DStyle.Inclination = 50
$Chart_PrinterHistoryArea.Area3DStyle.PointDepth = 50
$Chart_PrinterHistoryArea.Area3DStyle.Rotation = 5
$Chart_PrinterHistory.ChartAreas.Add($Chart_PrinterHistoryArea)
$Chart_PrinterHistoryArea.AxisX.Title = $TitleAxisX
$Chart_PrinterHistoryArea.AxisY.Title = $TitleAxisy
$Chart_PrinterHistoryArea.AxisX.MajorGrid.Enabled = $False
$Chart_PrinterHistory.font = "100"
$Chart_PrinterHistory.Series.Add($Series1Name)
$Chart_PrinterHistory.Series.Add($Series2Name)
$Chart_PrinterHistory.Series[$Series1Name].ChartType = [System.Windows.Forms.DataVisualization.Charting.SeriesChartType]::$ChartType
$Chart_PrinterHistory.Series[$Series2Name].ChartType = [System.Windows.Forms.DataVisualization.Charting.SeriesChartType]::$ChartType
If ( ($ChartType = "Funnel") -and ($With3D) )
{
$Chart_PrinterHistory.Series[$Series2Name].CustomProperties = "Funnel3DDrawingStyle=CircularBase"
$Chart_PrinterHistory.Series[$Series2Name].CustomProperties = "FunnelPointGap=20"
$Chart_PrinterHistory.Series[$Series2Name].CustomProperties = "Funnel3DRotationAngle=10"
$Chart_PrinterHistory.Series[$Series2Name].CustomProperties = "FunnelStyle=YIsHeight"
$Chart_PrinterHistory.Series[$Series2Name].CustomProperties = "FunnelLabelStyle=Outside"
}
$Chart_PrinterHistory.Series[$Series1Name].YValueType = [System.Windows.Forms.DataVisualization.Charting.ChartValueType]::Double 
$Chart_PrinterHistory.Series[$Series2Name].YValueType = [System.Windows.Forms.DataVisualization.Charting.ChartValueType]::Double
$Chart_PrinterHistory.Series[$Series1Name].Points.DataBindXY($List.$Series1AxisXSource,$List.$Series1AxisYSource)
$Chart_PrinterHistory.Series[$Series2Name].Points.DataBindXY($List.$Series2AxisXSource,$List.$Series2AxisYSource)
$Chart_PrinterHistory.Series[$Series1Name].color = $Series1Color
$Chart_PrinterHistory.Series[$Series2Name].color = $Series2Color
$Chart_PrinterHistory.Series[$Series1Name].IsValueShownAsLabel = $true
$Chart_PrinterHistory.Series[$Series2Name].IsValueShownAsLabel = $true
$Chart_PrinterHistoryArea.AxisX.LabelStyle.Enabled = $true
$Chart_PrinterHistoryArea.AxisX.LabelStyle.Angle = 0
$Chart_PrinterHistoryArea.AxisX.IsLabelAutoFit = $true
$Chart_PrinterHistoryArea.AxisX.Interval = 1
$Chart_PrinterHistoryArea.AxisX.LabelAutoFitStyle = "WordWrap"
$Chart_PrinterHistory.SaveImage("$SaveAs",'PNG')
}
Function CreateSNMPList{
param(
[String]$Printer_Name,
[Bool]$FirstMonthCheck
)
$PrintList | Where-Object Name -eq $Printer_Name | ForEach-Object {
$SNMP_Counter_copied_BW = GetSNMPValue -IP_Address $_.IP_Address -SNMP_Community $_.SNMP_Community -SNMP_Version $_.SNMP_Version -SNMP_OID $_.SNMP_Counter_copied_BW
$SNMP_Counter_printed_BW = GetSNMPValue -IP_Address $_.IP_Address -SNMP_Community $_.SNMP_Community -SNMP_Version $_.SNMP_Version -SNMP_OID $_.SNMP_Counter_printed_BW
$SNMP_Counter_copied_color = GetSNMPValue -IP_Address $_.IP_Address -SNMP_Community $_.SNMP_Community -SNMP_Version $_.SNMP_Version -SNMP_OID $_.SNMP_Counter_copied_color
$SNMP_Counter_printed_color = GetSNMPValue -IP_Address $_.IP_Address -SNMP_Community $_.SNMP_Community -SNMP_Version $_.SNMP_Version -SNMP_OID $_.SNMP_Counter_printed_color
$SNMP_TotalBWPrinted = $SNMP_Counter_copied_BW+$SNMP_Counter_printed_BW
$SNMP_TotalColorPrinted = $SNMP_Counter_copied_color+$SNMP_Counter_printed_color
$SNMPList = $null
$SNMPList = New-Object PSObject
Add-Member -inputObject $SNMPList -memberType NoteProperty -name "FirstMonthCheck" -value $FirstMonthCheck
Add-Member -inputObject $SNMPList -memberType NoteProperty -name "Checked_Date" -value $(get-date -Format "yyyyMMdd")
Add-Member -inputObject $SNMPList -memberType NoteProperty -name "Printer_Name" -value $Printer_Name
Add-Member -inputObject $SNMPList -memberType NoteProperty -name "Counter_copied_BW" -value $SNMP_Counter_copied_BW
Add-Member -inputObject $SNMPList -memberType NoteProperty -name "Counter_printed_BW" -value $SNMP_Counter_printed_BW
Add-Member -inputObject $SNMPList -memberType NoteProperty -name "Counter_copied_color" -value $SNMP_Counter_copied_color
Add-Member -inputObject $SNMPList -memberType NoteProperty -name "Counter_printed_color" -value $SNMP_Counter_printed_color
Add-Member -inputObject $SNMPList -memberType NoteProperty -name "TotalBWPrinted" -value $($SNMP_Counter_copied_BW+$SNMP_Counter_printed_BW)
Add-Member -inputObject $SNMPList -memberType NoteProperty -name "TotalColorPrinted" -value $($SNMP_Counter_copied_color+$SNMP_Counter_printed_color)
}
Return $SNMPList
} 
Function GetSNMPValue{
param(
[String]$IP_Address,
[String]$SNMP_Community,
[int]$SNMP_Version,
[String]$SNMP_OID
)
Write-Host "Initializing GetSNMPValue"
$SNMPValue = $null
If ($SNMP_OID) {
$SNMP = New-Object -ComObject olePrn.OleSNMP
$SNMP.open($IP_Address,$SNMP_Community,$SNMP_Version,1000)
$SNMPValue = $SNMP.get("."+$SNMP_OID)
$SNMP.Close()
}
Write-Host "GetSNMPValue Finished"
return $SNMPValue
}
Function GetPrinterCost{
param(
[String]$Printer_Rent_Value,
[String]$Printer_Rent_Quota,
[String]$Printer_Color_Page_Cost,
[String]$PrinterBW_Page_Cost,
[String]$TotalPrintedInColor,
[String]$TotalPrintedInBW
)
Write-Host "Initializing GetPrinterCost"
$PrinterCost = 0
$Printer_Rent_Quota = $Printer_Rent_Quota - $TotalPrintedInColor
If ($Printer_Rent_Quota -ge 0 )
{
$Printer_Rent_Quota = $Printer_Rent_Quota - $TotalPrintedInBW
$TotalPrintedInColor = 0
If ($Printer_Rent_Quota -ge 0 )
{
$TotalPrintedInBW = 0
}
Else
{
$TotalPrintedInBW = $Printer_Rent_Quota * -1
}
}
Else
{
$TotalPrintedInColor = $Printer_Rent_Quota * -1
}
$PrinterCost = [Math]::Round( ($TotalPrintedInColor * $Printer_Color_Page_Cost) + ($TotalPrintedInBW * $PrinterBW_Page_Cost) + $Printer_Rent_Value ,2 )
$PrinterCost = $PrinterCost.ToString('C',[cultureinfo]'pt-BR')
Write-Host "GetPrinterCost Finished"
return $PrinterCost
}
Function ImportPrintList{
param(
[String]$Path
)
Write-Host "Initializing ImportPrintList"
If (Test-Path -Path $Path){
$List_ImportPrintList = Import-Csv -Encoding UTF8 -Delimiter ';' $Path
Write-Host "ImportPrintList Finished"
Return $List_ImportPrintList
}
Else {
Write-Host "$Path not found !"
break
}
}
Function ImportPrinterHistory{
param(
[String]$Path
)
Write-Host "Initializing ImportPrinterHistory"
If (Test-Path -Path $Path) {
$List_ImportPrinterHistory = Import-Csv -Encoding UTF8 -Delimiter ';' $Path | select -Property @{n='Checked_Date';e={[int]$_.Checked_Date}},@{n='Counter_copied_BW';e={[int]$_.Counter_copied_BW}},@{n='Counter_printed_BW';e={[int]$_.Counter_printed_BW}},@{n='Counter_copied_color';e={[int]$_.Counter_copied_color}},@{n='Counter_printed_color';e={[int]$_.Counter_printed_color}},@{n='TotalBWPrinted';e={[int]$_.TotalBWPrinted}},@{n='TotalColorPrinted';e={[int]$_.TotalColorPrinted}},* -Exclude 'Checked_Date','Counter_copied_BW','Counter_printed_BW','Counter_copied_color','Counter_printed_color','TotalColorPrinted','TotalBWPrinted' 
Write-Host "ImportPrinterHistory Finished"
return $List_ImportPrinterHistory
}
Else {
Write-Host "$Path not found !"
break
}
}
Function PrinterConsumptionHistory{
param(
[PSObject]$List
)
Write-Host "Initializing PrinterConsumptionHistory"
$List_PrinterConsumptionHistory = @()
[int]$last_check_color = 0
[int]$last_check_bw = 0
$List | ForEach-Object {
$Printer_Name = $_.Printer_Name
$Checked_Date = $null
$TotalColorPrinted = $null
$TotalBWPrinted = $null
$Checked_Date = $_.Checked_Date.tostring()
$Date = ($Checked_Date.ToString().Substring(6,2) +"-"+ $Checked_Date.ToString().Substring(4,2) +"-"+ $Checked_Date.ToString().Substring(0,4)).tostring()
[int]$TotalColorPrinted = [int]$_.TotalColorPrinted
[int]$TotalBWPrinted = [int]$_.TotalBWPrinted
$dataObject = $null
$dataObject = New-Object PSObject
$TotalColor = ([Math]::Round($TotalColorPrinted-$last_check_color))
$TotalBW = ([Math]::Round($TotalBWPrinted-$last_check_bw))
Add-Member -inputObject $dataObject -memberType NoteProperty -name "Printer_Name" -value $Printer_Name
Add-Member -inputObject $dataObject -memberType NoteProperty -name "Checked_Date" -value $Date
Add-Member -inputObject $dataObject -memberType NoteProperty -name "TotalBWPrinted" -value $TotalBW
Add-Member -inputObject $dataObject -memberType NoteProperty -name "TotalColorPrinted" -value $TotalColor
$List_PrinterConsumptionHistory += $dataObject
[int]$last_check_color = [int]$_.TotalColorPrinted
[int]$last_check_bw = [int]$_.TotalBWPrinted
}
$List_PrinterConsumptionHistory = $List_PrinterConsumptionHistory | Select-Object -Skip 1 | Select-Object -Last 12
Write-Host "PrinterConsumptionHistory Finished"
return $List_PrinterConsumptionHistory
}
$ThisYear = (get-date -Format "yyyy")
$ThisMonth = (get-date -Format "MM")
$Year_LastMonth = (Get-Date).date.AddMonths(-1).Year
$LastMonth =  '{0:d2}' -f (Get-Date).date.AddMonths(-1).Month
$PrintList = ImportPrintList -Path "$DestinationFolder\PrintList.csv"
$PaperCutLogFolder = "C:\Program Files (x86)\PaperCut Print Logger\logs\csv\monthly"
Clear-Host
$PrintList | ForEach-Object {
If ((Test-NetConnection $_.IP_Address).PingSucceeded) {
$PrinterHistory = ImportPrinterHistory "$DestinationFolder\history.csv"
$Name = $_.Name
$PrinterHistory_FirstMonthCheck = $PrinterHistory | Where-Object { $_.Printer_Name -eq $Name -AND $_.FirstMonthCheck -eq "True" }
If ($PrinterHistory_FirstMonthCheck | Where-Object { $_.Checked_Date -ge [int]("$ThisYear"+"$ThisMonth"+"00") })
{
$PaperCutFile = "papercut-print-log-$ThisYear-$ThisMonth.csv"
$Save_PerMouth_History = $false
}
Else 
{
$PaperCutFile = "papercut-print-log-$Year_LastMonth-$LastMonth.csv"
$Save_PerMouth_History = $true
}
$SNMP_List = CreateSNMPList -Printer_Name $Name -FirstMonthCheck $Save_PerMouth_History
$SNMP_List | Select "FirstMonthCheck","Checked_Date","Printer_Name","Counter_copied_BW","Counter_printed_BW","Counter_copied_color","Counter_printed_color","TotalBWPrinted","TotalColorPrinted" | Export-Csv -NoTypeInformation -Encoding UTF8 -Delimiter ';' "$DestinationFolder\history.csv" –Append
$PaperCutLog = ConvertFromPaperCutLog -PaperCutLogFile "$PaperCutLogFolder\$PaperCutFile" -PrinterName $Name
$PaperCutLog = ConvertFromListLDAPUsertoSector -List $PaperCutLog -UserColumnName "User"
$PaperCutLog = CalculateTotalsOfAnList -List $PaperCutLog -Unique "User"
$PrinterConsumption = $null
$PrinterConsumption = New-Object PSObject
Add-Member -inputObject $PrinterConsumption -memberType NoteProperty -name "User" -value "Printer"
$PrintedInBW = $null
$PrintedInColor = $null
$PrintedInBW = $( $($SNMP_List.TotalBWPrinted-$PrinterHistory_FirstMonthCheck[-1].TotalBWPrinted)+$($SNMP_List.Counter_copied_BW-$PrinterHistory_FirstMonthCheck[-1].Counter_copied_BW)-$($PaperCutLog | Measure-Object "PrintedInBW" -Sum).Sum)
$PrintedInColor = $( $($SNMP_List.TotalColorPrinted-$PrinterHistory_FirstMonthCheck[-1].TotalColorPrinted)+$($SNMP_List.Counter_copied_color-$PrinterHistory_FirstMonthCheck[-1].Counter_copied_color)-$($PaperCutLog | Measure-Object "PrintedInColor" -Sum).Sum)
If ($PrintedInColor -lt 0)
{
If ($($PrintedInBW+$PrintedInColor) -gt 0)
{
$PrintedInBW=$PrintedInBW+$PrintedInColor
}
$PrintedInColor=0
}
Add-Member -inputObject $PrinterConsumption -memberType NoteProperty -name "PrintedInBW" -value $PrintedInBW
Add-Member -inputObject $PrinterConsumption -memberType NoteProperty -name "PrintedInColor" -value $PrintedInColor
$PaperCutLog += $PrinterConsumption
$PaperCutLog | Add-Member -MemberType NoteProperty -Name "UnitPrice_PrintedInBW" -Value $_.BW_Page_Cost
$PaperCutLog | Add-Member -MemberType NoteProperty -Name "UnitPrice_PrintedInColor" -Value $_.Color_Page_Cost
$PaperCutLog | Add-Member -MemberType NoteProperty -Name "PrintedInBW_TotalCost" -Value "0"
$PaperCutLog | Add-Member -MemberType NoteProperty -Name "PrintedInColor_TotalCost" -Value "0"
$PaperCutLog | ForEach-Object {
$_.PrintedInBW_TotalCost = [int]$_.PrintedInBW*[double]$_.UnitPrice_PrintedInBW.Replace(",",".")
$_.PrintedInColor_TotalCost = [int]$_.PrintedInColor*[double]$_.UnitPrice_PrintedInColor.Replace(",",".")
}
$PaperCutLog | Add-Member -MemberType NoteProperty -Name "TotalCosted" -Value "0"
$PaperCutLog | ForEach-Object {
$_.TotalCosted = $_.PrintedInColor_TotalCost+$_.PrintedInBW_TotalCost
}
$PaperCutLog = $PaperCutLog | Sort-Object -Property TotalCosted -Descending
$PrinterMountlyCost = GetPrinterCost -Printer_Rent_Value ($PrintList | Where-Object { $_.Name -eq $Name }).Rent_Value -Printer_Rent_Quota ($PrintList | Where-Object { $_.Name -eq $Name }).Rent_Quota -Printer_Color_Page_Cost ($PrintList | Where-Object { $_.Name -eq $Name }).Color_Page_Cost.replace(',','.') -PrinterBW_Page_Cost ($PrintList | Where-Object { $_.Name -eq $Name }).BW_Page_Cost.replace(',','.') -TotalPrintedInColor ($PaperCutLog | Measure-Object PrintedInColor -Sum).Sum -TotalPrintedInBW ($PaperCutLog | Measure-Object PrintedInBW -Sum).Sum
If ($Save_PerMouth_History){
$GraphMontlyFileName = "$Name`_Chart_PerSector_LastMonth"
$TitleAxisX = "Sectors"
$PrinterHistory = ImportPrinterHistory "$DestinationFolder\history.csv"
$PrinterHistory_FirstMonthCheck = $PrinterHistory | Where-Object { $_.Printer_Name -eq $Name -AND $_.FirstMonthCheck -eq "True" }
$PrinterConsumptionHistory = PrinterConsumptionHistory -List $PrinterHistory_FirstMonthCheck
CreateGraph -List $PrinterConsumptionHistory -SaveAs "$DestinationFolder\$Name`_Chart_PrinterHistory.png" -Width 1000 -Height 500 -MainTitle "$Name - Consumption History" -TitleAxisX "Collected Date" -TitleAxisY "Consumption" -Series1Name "BlackAndWhite" -Series1Color "#000000" -Series1AxisXSource "Checked_Date" -Series1AxisYSource "TotalBWPrinted" -Series2Name "Colorida" -Series2Color "#62B5CC" -Series2AxisXSource "Checked_Date" -Series2AxisYSource "TotalColorPrinted" -ChartType "Column" -WithLegendOn "Right"
}
Else 
{
$GraphMontlyFileName = "$Name`_Chart_PerSector"
$TitleAxisX = "The estimated Printer Cost (until now) is - $PrinterMountlyCost"
}
CreateGraph -List $PaperCutLog -SaveAs "$DestinationFolder\$GraphMontlyFileName.png" -Width 1500 -Height 500 -MainTitle "$Name - Consumption PerSector - $(get-date -Format "dd/MM/yyyy")" -TitleAxisX $TitleAxisX -TitleAxisY "Pages" -Series1Name "BlackAndWhite" -Series1Color "#000000" -Series1AxisXSource "User" -Series1AxisYSource "PrintedInBW" -Series2Name "Color" -Series2Color "#62B5CC" -Series2AxisXSource "User" -Series2AxisYSource "PrintedInColor" -ChartType "Column" -WithLegendOn "Right"
CreateGraph -List $PaperCutLog -SaveAs "$DestinationFolder\History-$Name`_$(get-date -Format "yyyy_MM").png" -Width 1500 -Height 500 -MainTitle "$Name - Consumption PerSector - $(get-date -Format "dd/MM/yyyy")" -TitleAxisX "Sectors" -TitleAxisY "Pages" -Series1Name "BlackAndWhite" -Series1Color "#000000" -Series1AxisXSource "User" -Series1AxisYSource "PrintedInBW" -Series2Name "Color" -Series2Color "#62B5CC" -Series2AxisXSource "User" -Series2AxisYSource "PrintedInColor" -ChartType "Column" -WithLegendOn "Right"
}
}

Excute esse código quando necessário, pode também deixar uma tarefa agendada.

Consulte as imagens geradas, crie páginas no site seu_site.seudominio.com para usar as imagens como forma de relatórios.

IMPORTANTE: Coloque um aviso de que as informações são aproximadas, pois o paper cut pode informar que um trabalho teve 10 páginas coloridas e, se alguma página no meio não tiver nenhuma cor, haverá uma diferença entre a informação da impressora (contador) e a informação do PaperCut. Se para você essa possível diferença não pode ocorrer, sugerimos que use adapte o código acima para usar apenas o contador da impressora (que é o que as empresas de aluguel normalmente usam para cobrar) e calcular os custos apenas em cima dessa informação.

Fontes/Referências

https://bytecookie.wordpress.com/category/winforms/
https://communities.vmware.com/t5/VMware-PowerCLI-Discussions/Unable-to-add-used-inside-the-doughnut-chart/td-p/510798
https://docs.microsoft.com/pt-br/dotnet/api/system.windows.forms.datavisualization.charting.chartarea.area3dstyle?view=netframework-4.8#system-windows-forms-datavisualization-charting-chartarea-area3dstyle
https://stackoverflow.com/questions/17548523/the-term-get-aduser-is-not-recognized-as-the-name-of-a-cmdlet
https://social.msdn.microsoft.com/Forums/vstudio/en-US/ce236753-1bc3-4dce-8753-f8509c2a2082/fixed-percentage-labels-on-axis-bar-chart?forum=MSWinWebChart
https://stackoverflow.com/questions/33707193/how-to-convert-string-to-integer-in-powershell
https://stackoverflow.com/questions/6131991/microsoft-chart-stacked-column-chart-has-gaps
https://stackoverflow.com/questions/53695686/chart-point-labels-wont-work-with-2-charts-created-instead-of-1
https://stackoverflow.com/questions/61515760/how-to-display-start-and-end-points-x-axis-label-in-a-chart-in-c-sharp-windows-f

Mais Informações

Esperamos ter ajudado da melhor forma possível e estaremos sempre a disposição para mais informações.

Se você tem interesse em algum assunto específico, tem alguma dúvida que precisa de ajuda, ou quer sugerir um post, entre em contato conosco pelo e-mail equipe@nvlan.com.br.