Thomas
Her er en løsning, der udskriver de kolonner, der har et 1-tal stående
i første række. Et 1-tal i A1, D1, G1 og J1 vil udskrive kolonnerne
A, D, G og J. Du behøver ikke sætte 0 i de kolonner, der ikke skal
udskrives.
Løsningen slår den almindelige udskriftsrutine fra og udskriver ét
eksemplar af det valgte udskriftområde. Skal du fx have tre udskrifter,
kan du klikke 3 gange på udskriftsknappen.
Som ved Haralds løsning skal koden indsættes i ThisWorkbook.
Gå til VBA-editoren med <Alt><F11> og dobbeltklik på ThisWorkbook
i øverste venstre vindue. Kopier og indsæt nedenstående rutine og
skriv selv de aktuelle værdier for SheetName og CheckRow.
Med venlig hilsen
LeoH
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'leo.heuser@get2net.dk, 12. juni 2001
Dim SheetName As String
Dim CheckRow As Long
Dim Cell As Range
SheetName = "Ark1"
CheckRow = 1
On Error GoTo Finito
With ActiveSheet
If .Name = SheetName Then
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
.Columns.Hidden = True
For Each Cell In Rows(CheckRow).Cells
If Cell.Value = 1 Then
Cell.EntireColumn.Hidden = False
End If
Next Cell
.PrintOut
.Columns.Hidden = False
Cancel = True
End If
End With
Finito:
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
Set Cell = Nothing
End Sub
----------------------------
"TM" <tm@navalyard.dk> skrev i en meddelelse
news:9g4aiq$jra$1@news.inet.tele.dk...
> Jeg bruger Excel fra Office2000.
> Jeg har er 1 kolonne(A) med Navne og derefter har jeg 52 kolonner med hver
> sit ugenr. Jeg har så låst vinduet så at når jeg scroller til højre bliver
> kolonne(A) stående. Mit problem består i at når jeg vil lave en udskrift
> kommer alle 52 uger ud. Kan det lade sig gøre at hvis jeg har scrollet
frem
> til f.eks kolonne(P) så udskriver den kun Kolonne(A) og så kolonne(P) og
25
> kolonner frem. Eller kan man lave en række hvor man indtaster "1" eller
"0"
> og få den til kun at udskriv de kolonner hvor der står "1". Eller kan man
få
> den til kun at udskrive det som er vist på skærmen.
>
> Med venlig hilsen.
> Thomas.
>
>
>