Print Preview Macro

  • Thread starter Emanuel Violante
  • Start date
E

Emanuel Violante

Hi,

The code above is working fine, but it print always to the default printer.

How can i have the available printers, and then select the correct one???

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "CARDEX" Then
Cancel = True
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet
On Error Resume Next
.Columns("I").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
True
.Rows("1:6").EntireRow.Hidden = False
.PrintOut
.Columns("I").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
False
On Error GoTo 0
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Supress Rows Before Printing - Toolbar Icons become disable 2
Word macro that can call cells out of Excel for a find and replace 0
Making a macro only work on certain files 2
how to have 2 drop down lists filter rows 2
Hide Rows with Formulas 2
SpecialCells(xlCellTypeBlanks) 1
Closing PDF file from Excel VBA (Adobe Reader, Adobe Acrobat, Browser) 0
Hide Empty Rows When Printing 1

Top