Not Printing all pages

General usage of the PDF Printer.

Moderator: jr

Not Printing all pages

Postby smdccb » Wed Aug 11, 2010 6:17 pm

I am new to Bullzip. I have written a script to print a file through Bullzip, and it seems to run fine, except that when I look at the PDF file I created only a protion of the pages are there (56 of 83). I have increased the Ghostscripttimeout to 600 9from default of 300, but has not made any difference. Any suggestions on what to try next?
I have tried to post this before, but since I cant find my post (it doesn't show up) I am trying to post this again.


Private Sub PDFBullzip()

Dim Bullzip As New Bullzip.PDFPrinterSettings
Dim PSFileName As String
Dim PDFFileName As String
Dim PDFlog As String
Dim ShellStr As String
Dim lastRow As Long
Dim PDFOk As Boolean
On Error GoTo Print_Error

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
Application.CalculateBeforeSave = False

g_RecordDate2 = Format(g_RecordDate, "")
g_ReportNP = g_ReportStorePath & g_BankInfo.file_path & "\reports\" & g_RecordDate2 & "_" & g_BankID & "_" & g_BankInfo.short_name
PSFileName = g_ReportNP & ".ps"
PDFFileName = g_ReportNP & ".pdf"
PDFlog = g_ReportNP & ".log"

If InStr(ActivePrinter, "Bullzip") = 0 Then
Dim StorePrinter$, PrinterChanged As Boolean
PrinterChanged = True
StorePrinter = ActivePrinter
ActivePrinter = GetFullNetworkPrintername("Bullzip")
End If

Call Bullzip.SetValue("Output", PDFFileName)
Call Bullzip.SetValue("ShowSettings", "never")
Call Bullzip.SetValue("ConfirmOverwrite", "no")
Call Bullzip.SetValue("ShowSaveAs", "never")
Call Bullzip.SetValue("Showpdf", "no")
Call Bullzip.SetValue("SuppressErrors", "yes")
Call Bullzip.SetValue("GhostscriptTimeout", "600")
Bullzip.WriteSettings (True) 'writes the settings in a runonce.ini that is immediately deleted after use.

On Error GoTo 0
On Error GoTo Print3_Error
On Error GoTo 0
On Error GoTo Print_Error


PDFOk = True
Exit Sub

MsgBox Title:="Caution!", Prompt:="AMGRW can't print the report due to missing sheets in Master_ALCO." & vbCrLf & " Please verify every sheet in this bank's Report Profile exists in Master_ALCO." & vbCrLf & vbCrLf & "Err.Number: " & Err.Number & vbCrLf & "Err.Source: " & Err.Source & vbCrLf & "Err.Description: " & Err.description & vbCrLf & vbCrLf & "Please check error log for details.", Buttons:=vbCritical
Application.DisplayAlerts = True
PDFOk = False
Exit Sub
MsgBox Title:="Caution!", Prompt:="AMGRW can't print the report through Bullzip. " & vbCrLf & vbCrLf & "Err.Number: " & Err.Number & vbCrLf & "Err.Source: " & Err.Source & vbCrLf & "Err.Description: " & Err.description, Buttons:=vbCritical
PDFOk = False
End Sub
Posts: 3
Joined: Wed Aug 11, 2010 3:24 pm

Re: Not Printing all pages

Postby smdccb » Fri Aug 13, 2010 8:50 pm

After some trial and error, i discovered that the worksheets in the underlying document must all be set to the same Print Quality setting through Page Setup.
Once that was fixed, all pages printed fine.
Posts: 3
Joined: Wed Aug 11, 2010 3:24 pm

Re: Not Printing all pages

Postby DebRunyan » Wed Apr 04, 2012 6:05 pm

I am having the same problem. I am using Bullzip to create a single PDF file of statements. If I run the same statements 3 times, I get 3 different results. (I do change the Output file name.)
I use the global.ini to set Bullzip up to create just one file:
[PDF Printer]

It seems that the Print Quality would be the same as all pages are being printed in the same way from the same program.
Does anyone have any suggestions?
Posts: 1
Joined: Wed Apr 04, 2012 5:44 pm

Return to General

Who is online

Users browsing this forum: No registered users and 2 guests