You kan skrive ut flere valgte kolonner sammen på en side med VBA-kode. Vennligst gjør som følger.
1. Trykk ALT + F11 tastene samtidig for å åpne Microsoft Visual Basic for Application vinduet.
2. I Microsoft Visual Basic for Application vindu, klikker du Sett > Modul. Og deretter kopiere og lime inn følgende VBA kode i Module vinduet
VBA-kode. Skriv ut valgte kolonner sammen
Sub Print_MultiAreas () Dim XRG Som Range Dim xSht Som Regneark Dim xArea Som Range Dim xTxt As String On Error Resume Neste xTxt = ActiveWindow.RangeSelection.Address Set XRG = Application.InputBox ("Velg kolonner:", "Kutools for Excel", xTxt,,,,, 8) Hvis XRG Er Ingenting Deretter Exit Sub Set xSht = Worksheets.Add (Etter : = Sheets (Sheets.Count)) for hver xArea I xRg.Areas xArea.Copy Destinasjon: = xSht.Range (xArea.Address) xSht.Range (xArea.Address) .Value = xArea.Value Neste xSht.PrintPreview 'xSht .PrintOut Eksemplar: = 1, sortering: = Sant, IgnorePrintAreas: = False Application.DisplayAlerts = False xSht.Delete Application.DisplayAlerts = True xRg.Parent.Activate End Sub3. Trykk F5 for å kjøre koden. Så en Kutools for Excel dialogboksen dukker opp, kan du velge kolonnene du trenger å skrive ut en etter en med å holde nede Ctrl-tasten. Og til slutt klikker på OK-knappen. Se skjermbilde:
4. Da får du en forhåndsvisning vindu, klikker du på Skriv ut for å starte utskriften
. Merk: Hvis noen av de valgte kolonnene er ikke på én side, i forhåndsvisningsvinduet, bør du klikke Neste side for å vise andre valg. Og de vil bli skrevet ut i separate sider som sine egne.
Vanskelig å håndtere VBA-kode? Man kan oppnå det gjennom følgende metode.