- #IM HAVING ISSUES USING BULLZIP PDF PDF#
- #IM HAVING ISSUES USING BULLZIP PDF CODE#
- #IM HAVING ISSUES USING BULLZIP PDF FREE#
SetValue "Zoom", "75" Rem - Place a stamp in the lower right corner '. SetValue "UseThumbs", "Never" Rem - Set the zoom factor to 50%. SetValue "Subject", "Report generated at " & Now Rem - Display page thumbs when the document is opened Rem. SetValue "ShowPDF", "Never" Rem - Set document properties. SetValue "output", GetDatabaseFolder & "\out\" & rs!hullername & ".PDF" Rem - Control the dialogs when printing.
#IM HAVING ISSUES USING BULLZIP PDF PDF#
EOF Rem - Set the printer Application.Printer = Application.Printers(iPdfPrinterIndex) Rem - Configure the PDF printer With oPrinterSettings Rem - Set the destination file name of the PDF document 'MsgBox (rs!hullername & " ~ " & rs!hullerID).
#IM HAVING ISSUES USING BULLZIP PDF CODE#
Set oPrinterSettings = CreateObject("Bullzip.PdfSettings") Set oPrinterUtil = CreateObject("Bullzip.PdfUtil") Rem - Get default printer name sPrinterName = oPrinterUtil.DefaultPrintername oPrinterSettings.Printername = sPrinterName Rem - Get the directory of the database sCurrentDir = GetDatabaseFolder Rem - Find the index of the printer that we want to use iPdfPrinterIndex = -1 iCurrentPrinterIndex = -1 sCurrentPrinterName = For i = 0 To - 1 If (i).DeviceName = sPrinterName Then iPdfPrinterIndex = i End If If (i).DeviceName = sCurrentPrinterName Then iCurrentPrinterIndex = i End If Next Rem - Exit here if the pdf printer was not found If iPdfPrinterIndex = -1 Then MsgBox "The printer '" & sPrinterName & "' was not found on this computer." Exit Function End If Rem - Exit here if the current printer was not found If iCurrentPrinterIndex = -1 Then MsgBox "The current printer '" & sCurrentPrinterName & "' was not found on this computer." & _ " Without this printer the code will not be able to restore the original printer selection." Exit Function End If With rs While Not. Rem - Replace biopdf with bullzip if you have the bullzip printer installed instead Rem - of the biopdf printer. & "#)) " & _ "ORDER BY qryLot_Basics.HullerName " 'MsgBox (sSQL) rs.Open sSQL, CurrentProject.Connection, adOpenStatic, adLockReadOnly, adCmdText DoEvents Rem - Create the objects to control the printer settings. Public Function PrintReportAsPDF() Dim iPdfPrinterIndex As Integer Dim sCurrentPrinterName As String Dim iCurrentPrinterIndex As Integer Dim i As Integer Dim sCurrentDir As String Dim oPrinterSettings As Object Dim oPrinterUtil As Object Dim sPrinterName As String Dim sDocName As String Dim sCriteria As String Dim db As Database Dim rs As ADODB.Recordset Dim sSQL As String Set db = CurrentDb Set rs = New ADODB.Recordset sDocName = "rpt_Auto_Huller" sSQL = _ "SELECT DISTINCT qryLot_Basics.HullerID, qryLot_Basics.HullerName " & _ "FROM qryLot_Basics " & _ "WHERE (((qryLot_Basics.HullerName) is Not Null) AND " & _ "((qryLot_Basics.Date) Between #" & _ !. I'm sure I'm missing something but I'm officially out of things to try. I don't see a need to set all the printer settings on every print so I tried moving it out of the loop and only setting the path but that didn't have any effect. As you can see the report is rather simple.Is there something wrong with the way I'm structuring my code? Since this PDF printer seems to be specifically made for batch printing I'm assuming I must be doing something wrong sending it the reports. SetValue "output", GetDatabaseFolder & "\out\" & rs!hullername & ".PDF"Īs long as I inject a little delay between each report everything comes out as expected. I added the msgbox right before the line where the file path/name is set: In the screen shot of the HullerIDs number 2 and 3 got skipped and the file naming even managed to jump from the HullerID to the HullerName. Some of the names have special characters so I thought that might be effecting the SQL so I changed the file naming to the primary key which is numeric. I run into issues where the name of the report is actually different than the content and not all the reports get printed. The problem I am having is that the function seems to be sending the reports to the PDF printer faster than it can handle. I added the code for the SQL and opening the record set to loop which is pretty straight forward.
#IM HAVING ISSUES USING BULLZIP PDF FREE#
I started with the sample code that came with the free Bullzip PDF software. I'm just getting my feet wet on batch printing to PDF.
0 kommentar(er)
