huidige week + kolom B printen

[Spiesse]

dag forumisten,

in bijlage een bestand dat ik ga gebruiken voor het registreren van inschrijvingen vakantiejob.

via een macro (print huidige week) krijg ik een afdrukvoorbeeld van de huidige week.
Nu zou ik daar graag nog kolom B bijkrijgen om samen af te drukken...

mss wartaal maar het bestand spreekt wel voor zich hoop ik

Groeten,
spiesseBekijk bijlage jobstudenten 2014 macro forum.xlsm

 

[Cobbe]

Ik heb nog eens iets in elkaar gestoken voor uw probleem:

Sub PrintHuidigeWeek()
'Module1.GaNaarWeek
Application.ScreenUpdating = False
   For i = 3 To ActiveCell.Column - 1
    Columns(i).Hidden = True
   Next
    Range("B6:B106", Range(Cells(6, ActiveCell.Column), Cells(106, ActiveCell.Column)).Address).PrintPreview
     Columns.Hidden = False
Application.ScreenUpdating = True
End Sub

 

[Spiesse]

goedemorgen Cobbe,

dank voor je oplossing. denk wel dat deze zal lukken.

Die "nog eens iets in elkaar gestoken" klinkt negatief Cobbe het is niet dat ik niks geprobeerd heb om beide selecties af te laten printen...

 

[Cobbe]

Maar ik bedoelde het ook niet negatief, waarom ook?
Maar ik bedoelde dat ik een beetje heb liggen prutsen tot ik achterhaalde wat de clou eigenlijk was om dit tot een goed einde te brengen
en dat was het verbergen van de niet af te drukken kolommen.

Succes!!

 

[Spiesse]

twas genen gemakkelijken e

ga uw voorstel sebiet es gaan testen sie. maar ben er wel zeker van dat het zal lukken...

groeten!

 

[Spiesse]

Cobbe, tis toch nie wat het zou moeten zijn... mijn excuses...

de hoofding van de huidige week staat niet op mijn printvoorbeeld... dit zou er zeker moeten opstaan voor het gemak

nu zie ik enkel de eerste dag van de selectie, maar de 4 andere dagen met hun 1-tje staan er niet bij...

ik probeer te achterhalen hoe of wat jij ook?

 

[Spiesse]

ik denk dat deze wel doet wat ik wil hebben

Sub PrintHuidigeWeek()
Module1.GaNaarWeek

kolom = ActiveCell.Column
Range(Cells(3, kolom), Cells(106, kolom)).Select
'Range("B:B").Activate
For i = 3 To ActiveCell.Column - 1
    Columns(i).Hidden = True
   Next
Range(Range("Tabel1[[#All],[Naam]]"), Range(Cells(3, kolom), Cells(106, kolom))).Select

    'ActiveSheet.PageSetup.PrintArea = "Tabel1[[#Alles];[Naam]]"
'kolom2.Activate
Selection.PrintOut Copies:=1, Preview:=True, Collate:=True
End Sub

via macro opnemen heb ik een afdrukbereik bepaald, en dan in samenhang met range.select de huidige week selecteren...

even testen wordt de boodschap en dan eventueel op opgelost zetten...

 

[Cobbe]

Nu zou je me toch eens moeten uitleggen wat er mis is aan mijn code.
Je hoefde enkel de 6 te wijzigen in een 3, zodat hij ook de regels 3,4 en 5 meenam.

Sub PrintHuidigeWeek()
'Module1.GaNaarWeek
Application.ScreenUpdating = False
   For i = 3 To ActiveCell.Column - 1
    Columns(i).Hidden = True
   Next
    Range("B[COLOR="#FF0000"]3[/COLOR]:B106", Range(Cells([COLOR="#FF0000"]3[/COLOR], ActiveCell.Column), Cells(106, ActiveCell.Column)).Address).PrintPreview
     Columns.Hidden = False
Application.ScreenUpdating = True
End Sub

 

[Spiesse]

Hey Cobbe,

als ik jouw code liet lopen zag ik idd ook de kolom met de namen, maar ik zag enkel de maandag in mijn overzichtslijst staan, en niet de ganse week.
ik had de 6 gewijzigd naar 3 maar bleef bij het zelfde probleem hangen...

ge weet dat ik nooit twijfel aan jouw codes e Cobbe, je hebt me al méérmaals schitterend geholpen! houden zo

spiesse