22/03/2007, 04:54
|
| | | Fecha de Ingreso: enero-2007
Mensajes: 14
Antigüedad: 18 años Puntos: 0 | |
| Re: Exportar una imagen
Para más de una hoja y por separado, tengo esto:
Sub prnt_sheet()
ActiveWorkbook.Worksheets(1).PrintPreview
ActiveWorkbook.Worksheets(2).PrintPreview
With Assistant.NewBalloon
.Heading = "Select A Printer"
.Text = "You must select a printer before printing."
.Icon = msoIconAlert
.CheckBoxes(1).Text = "local Printer"
.CheckBoxes(2).Text = "Network printer"
.Mode = msoModeModeless
.Callback = "ProcessPrinter"
.Show
End With
End Sub |