Verkorte lijst printen...

[udo1967]

Dames/Heren Excel gebruikers,

Vanuit een werkblad waar meerdere kolommen met gegevens staan
(A t/m X) zou ik graag alleen de kolommen A,B,F,H,I,J,M en N willen
hebben.
Via Data/Filter/Autofilter maak ik al een selektie wat ik wil hebben.
Dit sorteren/filteren gaat prima, alleen :

Hoe kan ik alleen die kolommen (zoals hierboven
genoemd) uitgeprint krijgen.

Via Formule, Macro of kopieren naar andere Werkblad,
't maakt me niet zoveel uit als het resultaat er maar is.
Iemand voorbeelden zodat ik zelf aan de slag kan ?

Iemand die mij wil helpen ?

Cindy

 

[Palmpje]

De kolommen die je niet wilt printen verbergen.

 

[Justes]

hallo Cindy,

kolom die verborgen moet worden selecteren dan via Data-overzicht-groeperen.
Zie bijlage.

gr Justes

 

[udo1967]

Uitprinten Vraag

Geplaatst door Justes
hallo Cindy,

kolom die verborgen moet worden selecteren dan via Data-overzicht-groeperen.
Zie bijlage.

gr Justes

Hallo Justes,

In princiepe is de vraag opgelost echter...

Heb het Groeperen van de Kolommen toegepast.
Daarna een Macro gemaakt om de knoppen 1 en 2,
voor het "aan, uit" zetten ervan. met daartussen het
uitprinten van de lijst

Weet jij een mogelijkheid om in deze Macro een vraag
te stellen of deze lijst wel geprint mag worden ?
Zoals:

"LIJST UITPRINTEN JA of NEE"

met J of N of met de muis aanklikken.

Hierbij de Macro :

Sub Uitprinten()
'
' Uitprinten Macro
' De macro is opgenomen op 14-8-2005 door Cindy.
'

'
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
End Sub

 

[Justes]

Hallo Cindy,

Nee helaas daar kan ongetwijfeld iemand anders je mee helpen.

suc6, Justes

 

[Jan van Asseldonk]

Pas je macro als volgt aan:

Sub Uitprinten()
'
' Uitprinten Macro
' De macro is opgenomen op 14-8-2005 door Cindy.
'

'
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1

pr = MsgBox("Printen? ", vbYesNo)
If pr = 6 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If

ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
End Sub

Kijk voor meer opties in de help van vba bij msgbox of eventueel bij inputbox.

 

[udo1967]

Opgelost

Probleem is opgelost dmv deze Macro.


Sub Printen_met_JN_knop()

Dim myColumns As String
'Kolommen die verborgen cq zichtbaar gemaakt dienen te worden
myColumns = "A:A,C:C,D,G:G,K:K,L:L,M:M,O:O,P,Q:Q,R:R,S:S,T:T,U:U,V:V,W:W,X:X,Y:Y,Z:Z"

Dim Keus As Integer
Keus = MsgBox("Uitprinten Ja/Nee", vbYesNo, "Print-Overzicht")
If Keus = 6 Then
'Kolommen verbergen
ActiveSheet.Range(myColumns).EntireColumn.Hidden = True
'Printer instellingen
With ActiveSheet.PageSetup
.LeftHeader = Cells(1, 1).Value
.CenterHeader = "Dit is een uitdraai voor Cindy"
.RightFooter = "&D"
End With
'Printen van het overzicht
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'Kolommen weer zichtbaar maken
ActiveSheet.Range(myColumns).EntireColumn.Hidden = False
Else
MsgBox "Er wordt niks uitgeprint!"
End If

End Sub