| | Post: 102 | Registrato il: 12/08/2011
| Città: PALERMO | Età: 40 | Utente Junior | Excel 2010 - Excel 2013 | | OFFLINE | |
|
07/12/2019 18:50 | |
Buonasera.
Prima di scrivere ho cercato nel forum, ma penso che non sia stato chiesto.
Nell'esempio in allegato ho una serie di colonne con intestazione "N. - Nome - Cognome - Codice Fiscale - Data incontro - Ora incontro" e vorrei sapere come stampare le colonne B C D F senza nascondere la E.
Se le seleziono con CTRL, la colonna F finisce in un altro foglio.
Su internet avevo trovato la seguente macro code Sub Print_MultiAreas()
Dim xRg As Range
Dim xSht As Worksheet
Dim xArea As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select columns:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xSht = Worksheets.Add(After: = Sheets(Sheets.Count))
For Each xArea In xRg.Areas
xArea.Copy Destination: = xSht.Range(xArea.Address)
xSht.Range(xArea.Address).Value = xArea.Value
Next
xSht.PrintPreview
'xSht.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Application.DisplayAlerts = False
xSht.Delete
Application.DisplayAlerts = True
xRg.Parent.Activate
End Sub
ma il problema è che stampa pure le righe nascoste.
Come posso fare?
PHYSICAL
_________
Excel 2010 - Excel 2013
STATA 10.1 11.1 |
|
| | Post: 2.458 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
07/12/2019 19:05 | |
ciao
solo una curiosità:
perchè non nascondi, stampi e riscopri la colonna E ?
saluti
Domenico
Win 10 - Excel 2016 |
| | Post: 4.189 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
07/12/2019 21:10 | |
anche a me sembra la cosa più ovvia
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 102 | Registrato il: 12/08/2011
| Città: PALERMO | Età: 40 | Utente Junior | Excel 2010 - Excel 2013 | | OFFLINE | |
|
07/12/2019 23:49 | |
dodo47, 07/12/2019 19.05:
ciao
solo una curiosità:
perchè non nascondi, stampi e riscopri la colonna E ?
saluti
Perché nel file originale ci sono altre centinaia di colonne (non contigue) tra la D e la F (dell'esempio) e nasconderle una a una ci starei molto tempo.
PHYSICAL
_________
Excel 2010 - Excel 2013
STATA 10.1 11.1 |
|
08/12/2019 01:47 | |
>>> nasconderle una a una ci starei molto tempo
Esiste pure il VBA, B C D <> F >>>senza nascondere la E... che non capisco bene???
Pertanto nascondi colonna A + "trà E ed eventuali altre colonne...(x:y) e poi sino alla fine"
Facciamo finta che devi stampare (B C D AA). Ex...
Sub nascondi_scopri()
Range("A:A,E:E,E:Z, AB:AB,AB:XFD").EntireColumn.Hidden = True
'esegui la stampa
Range("A:A,E:E,E:Z, AB:AB,AB:XFD").EntireColumn.Hidden = False
End Sub |
| | Post: 103 | Registrato il: 12/08/2011
| Città: PALERMO | Età: 40 | Utente Junior | Excel 2010 - Excel 2013 | | OFFLINE | |
|
08/12/2019 09:33 | |
ABCDEF@Excel, 08/12/2019 01.47:
>>> nasconderle una a una ci starei molto tempo
Esiste pure il VBA, B C D <> F >>>senza nascondere la E... che non capisco bene???
Pertanto nascondi colonna A + "trà E ed eventuali altre colonne...(x:y) e poi sino alla fine"
Facciamo finta che devi stampare (B C D AA). Ex...
Sub nascondi_scopri()
Range("A:A,E:E,E:Z, AB:AB,AB:XFD").EntireColumn.Hidden = True
'esegui la stampa
Range("A:A,E:E,E:Z, AB:AB,AB:XFD").EntireColumn.Hidden = False
End Sub
Non conosco il VBA. Il codice vba, di cui al primo post, l'ho preso su internet e va quasi bene se non fosse che stampa le righe nascoste.
L'importante per me è stampare colonne non contigue (senza le righe nascoste) nello stesso foglio.
P.S.: ho dimenticato di scrivere nei post precedenti i ringraziamenti. Scusate. [Modificato da PHYSICAL 08/12/2019 09:42]
PHYSICAL
_________
Excel 2010 - Excel 2013
STATA 10.1 11.1 |
|
|