
Sub Stampanti() Dim strTestoMsgBox As String Application.Dialogs(xlDialogPrinterSetup).Show MsgBox "Nome della stampante: " & Application.ActivePrinter End Sub |
Sub Stampanti()
Dim strTestoMsgBox As String
Application.Dialogs(xlDialogPrinterSetup).Show
MsgBox "Nome della stampante: " & Application.ActivePrinter
range("A1") = Application.ActivePrinter
End Sub |
