Vba Stampa

[trittico6969]

chi mi aiuta a creare una macro,che poi verrà aggiunta a una altra macro già esistente, che mi consente di dare l'ok alla stampa, dopo aver premuto il tasto stampa, quindi

Range("A3:N" & r).Select 'seleziona l'area di stampa'
ind = Range("A3:N" & r).Address
ActiveSheet.PageSetup.PrintArea = ind
With ActiveSheet.PageSetup
  .PrintTitleRows = "$1:$2"
  .PrintTitleColumns = ""
End With
With ActiveSheet.PageSetup
  .LeftHeader = "Stampato in Data &D - &T   Pagine &P/&N" 'stampa data ora e numero di pagine'
  .CenterHeader = "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & _
    "&""Arial,Grassetto Corsivo""&18Firenze&""Arial,Normale""&10" & Chr(10) & _
"&""Arial,Grassetto Corsivo""&12Nuovi Arrivi, in Data &D" 'intestazione pagina'
  .LeftMargin = Application.InchesToPoints(0.1) 'margine sinistro della stampa'
  .RightMargin = Application.InchesToPoints(0.1) 'margine destro'
  .TopMargin = Application.InchesToPoints(1.6) 'margine alto'
  .BottomMargin = Application.InchesToPoints(0.25) 'adatta lo scritto alla pagina della stampa'
  .HeaderMargin = Application.InchesToPoints(0.1) 'abbassa o alza il titolo della pagina di stampa'
  .FooterMargin = Application.InchesToPoints(0.2) 'abbassa o alza lo scritto sotto la pagine'
  .PrintHeadings = False
  .PrintGridlines = False
  .PrintComments = xlPrintNoComments
  .CenterHorizontally = False
  .CenterVertically = False
  .Orientation = xlLandscape 'stampa in verticale...per stampare in orizzontale sostituisci con =x1portrait'
  .Draft = False
  .PaperSize = xlPaperA4 'tipo di foglio usati per la stampa'
  .FirstPageNumber = xlAutomatic
  .Order = xlDownThenOver
  .BlackAndWhite = False
  .Zoom = 100 'ingrandisce o rimpiccolisce la stampa'
  .PrintErrors = xlPrintErrorsDisplayed
End With
Application.ScreenUpdating = True
If st = "V" Then ActiveWindow.SelectedSheets.PrintPreview
If st = "S" Then ActiveWindow.SelectedSheets.PrintOut Copies:=cp

a questo punto esce l'anteprima di stampa... quindi il codice che mi stampa qual'è?

insomma far uscire il foglio dalla stampante tutto con un solo click!

grazie!

[Tommaso Uva]

Caro trittico6969, come già ti ha fatto presente qualche altro utente del forum ti vorrei ribadire che questo non è un centro assistenza e supporto a prescindere, non fraintendere, siamo ben lieti di darti una mano e di mettere a disposizione le nostre conscenze, però vorremmo ricevere anche un tuo feedback per avere la possibilità di accertare che la soluzione suggerita sia quella correta, ma anche per una sorta di tacita correttezza.

Anche perchè il forum stesso è una repository per eventuali utenti che in futuro potrebbo incappare negli stessi tuoi dubbi.

Saluti