Userform commands to print and convert to PDF

[mcooer0913]

I am trying to make a userform command button (cmdPrintClientData) print a worksheet ("Client Statistics"). I would like for the user to be taken directly from the userform to a print dialogue box where he/she can select a printer (as if he/she had selected "Print" while viewing the "Client Statistics" worksheet).

Also, I would like to place a button next to it (cmdConvertClientData) that allows the user to convert the same data to a PDF.

Any suggestions?

 

[MalcolmS]

Assuming a pdf converter is installed (in my case pdfFactory) this would print the sheet to pdf, via a print preview.

activeworksheet.printout preview:=true, activeprinter:="pdfFactory"

You could select your activeprinter, maybe with a list box to give you the choice of printer. But this is machine specific. And it is going to be cumbersome if you don't know what printers are installed and whether your users have a different selection. You'd need to leave them to fill the list.

 

[Diablo II]

try this

Sub Print_Reports()
bResponse = Application.Dialogs(xlDialogPrinterSetup).Show
If TypeName(response) = "Boolean" Then Exit Sub

End Sub

Sub CreatePDF()
   Dim curPrinter As String
   curPrinter = Application.ActivePrinter
   Application.ActivePrinter = "PDF-XChange 2.5 on Ne01:"
   ActiveWindow.SelectedSheets.PrintOut
   Application.ActivePrinter = curPrinter
End Sub

 

[mcooer0913]

Sub CreatePDF()
   Dim curPrinter As String
   curPrinter = Application.ActivePrinter
   Application.ActivePrinter = "PDF-XChange 2.5 on Ne01:"
   ActiveWindow.SelectedSheets.PrintOut
   Application.ActivePrinter = curPrinter
End Sub

I'm still learning some VB fundamentals, and am not quite sure how to implement this code. Would it look like this (cmdConvertClientStatistics is the button I'm using for this):

Private Sub cmdConvertClientStatistics_Click()
Sub CreatePDF()
   Dim curPrinter As String
   curPrinter = Application.ActivePrinter
   Application.ActivePrinter = "PDF-XChange 2.5 on Ne01:"
   ActiveWindow.SelectedSheets.PrintOut
   Application.ActivePrinter = curPrinter
End Sub
End Sub

 

[Diablo II]

in the command button tyr call CreatePDF like this, this will go in the command button code window.

Private Sub cmdConvertClientStatistics()
call CreatePDF
end sub

this will call that macro to run. or you can do this
this is the same command button code window.

Private Sub cmdConvertClientStatistics()
 Dim curPrinter As String
   curPrinter = Application.ActivePrinter
   Application.ActivePrinter = "PDF-XChange 2.5 on Ne01:"
   ActiveWindow.SelectedSheets.PrintOut
   Application.ActivePrinter = curPrinter
End Sub