Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
Altri Linguaggi - vba stampa
Forum - Altri Linguaggi - vba stampa

Avatar
trittico69 (Normal User)
Pro


Messaggi: 144
Iscritto: 02/04/2010

Segnala al moderatore
Postato alle 23:24
Giovedì, 24/03/2011
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

Codice sorgente - presumibilmente Delphi

  1. Range("A3:N" & r).Select 'seleziona l'area di stampa'
  2. ind = Range("A3:N" & r).Address
  3. ActiveSheet.PageSetup.PrintArea = ind
  4. With ActiveSheet.PageSetup
  5.  .PrintTitleRows = "$1:$2"
  6.  .PrintTitleColumns = ""
  7. End With
  8. With ActiveSheet.PageSetup
  9.  .LeftHeader = "Stampato in Data &D - &T   Pagine &P/&N" 'stampa data ora e numero di pagine'
  10.  .CenterHeader = "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & _
  11.    "&""Arial,Grassetto Corsivo""&18Firenze&""Arial,Normale""&10" & Chr(10) & _
  12. "&""Arial,Grassetto Corsivo""&12Nuovi Arrivi, in Data &D" 'intestazione pagina'
  13.  .LeftMargin = Application.InchesToPoints(0.1) 'margine sinistro della stampa'
  14.  .RightMargin = Application.InchesToPoints(0.1) 'margine destro'
  15.  .TopMargin = Application.InchesToPoints(1.6) 'margine alto'
  16.  .BottomMargin = Application.InchesToPoints(0.25) 'adatta lo scritto alla pagina della stampa'
  17.  .HeaderMargin = Application.InchesToPoints(0.1) 'abbassa o alza il titolo della pagina di stampa'
  18.  .FooterMargin = Application.InchesToPoints(0.2) 'abbassa o alza lo scritto sotto la pagine'
  19.  .PrintHeadings = False
  20.  .PrintGridlines = False
  21.  .PrintComments = xlPrintNoComments
  22.  .CenterHorizontally = False
  23.  .CenterVertically = False
  24.  .Orientation = xlLandscape 'stampa in verticale...per stampare in orizzontale sostituisci con =x1portrait'
  25.  .Draft = False
  26.  .PaperSize = xlPaperA4 'tipo di foglio usati per la stampa'
  27.  .FirstPageNumber = xlAutomatic
  28.  .Order = xlDownThenOver
  29.  .BlackAndWhite = False
  30.  .Zoom = 100 'ingrandisce o rimpiccolisce la stampa'
  31.  .PrintErrors = xlPrintErrorsDisplayed
  32. End With
  33. Application.ScreenUpdating = True
  34. If st = "V" Then ActiveWindow.SelectedSheets.PrintPreview
  35. 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!

PM