buona sera,
sto cercando di capire dove mettere il comando . printpreview nella macro che segue.
il risultato che vorrei ottenere è che la macro si fermi una volta aperta l’anteprima di stampa così da dar modo all’utente di sceglere a quale stampante inviare il foglio.
inutile dire che fino ad ora i miei sforzi si sono rivelati vani
grazie
stefano
Private Sub CommandButton1_Click() ‘Stampante
Dim r
Unload UserForm11
r = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Range(“A1:G” & r).Select
ActiveSheet.PageSetup.PrintArea = “$A$1:$G$” & r
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.LeftHeader = “Stampa effettuata &D ore &T Pagina &P di &N”
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets(“programma lavoro”).Select
End Sub
