Print Preview Macro
 

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).Entir eRow.Hidden =
True
.Rows("1:6").EntireRow.Hidden = False
.PrintOut
.Columns("I").SpecialCells(xlCellTypeBlanks).Entir eRow.Hidden =
False
On Error GoTo 0
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If

--
Thanks,

Emanuel Violante Galeano

Print Preview Macro
 

Application.Dialogs(xlDialogPrint).Show
--
paul

remove nospam for email addy!



"Emanuel Violante" wrote:

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).Entir eRow.Hidden =
True
.Rows("1:6").EntireRow.Hidden = False
.PrintOut
.Columns("I").SpecialCells(xlCellTypeBlanks).Entir eRow.Hidden =
False
On Error GoTo 0
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If

--
Thanks,

Emanuel Violante Galeano