Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Stampare colonne non contigue in unico foglio

Ultimo Aggiornamento: 08/12/2019 09:33
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

Re:
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

Re:
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
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 12:57. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com