Macro aanmaken om te printen

[bakerman]

Test deze dan maar eens.

K5.xlsm

[K5]

21 minuten geleden, bakerman zei:

Test deze dan maar eens.

K5.xlsm

Ik heb het uitgeprobeerd, maar krijg terug enkel kolom B uitgeprint.

Test_02.pdf

Sorry het is enkel kolom C!!

31 december 2018 aangepast door K5

[K5]

Even een voorbeeld van de bovenste rij.

[bakerman]

Sub afdrukken()
    Application.ScreenUpdating = False
    With Sheets(1)
        .PageSetup.Orientation = xlPortrait
        .Cells(1).CurrentRegion.Sort .Range("L1"), xlAscending, , , , , , xlYes
        .Range("A:A,C:K").EntireColumn.Hidden = True
        .PrintPreview 'PrintOut
        .Range("A:A,C:K").EntireColumn.Hidden = False
        .Cells(1).CurrentRegion.Sort .Range("B1"), xlAscending, , , , , , xlYes
    End With
    Application.ScreenUpdating = True
End Sub

 

[K5]

2 uren geleden, bakerman zei:

Sub afdrukken()
    Application.ScreenUpdating = False
    With Sheets(1)
        .PageSetup.Orientation = xlPortrait
        .Cells(1).CurrentRegion.Sort .Range("L1"), xlAscending, , , , , , xlYes
        .Range("A:A,C:K").EntireColumn.Hidden = True
        .PrintPreview 'PrintOut
        .Range("A:A,C:K").EntireColumn.Hidden = False
        .Cells(1).CurrentRegion.Sort .Range("B1"), xlAscending, , , , , , xlYes
    End With
    Application.ScreenUpdating = True
End Sub

 

Met deze wordt enkel kolom B uitgeprint.

[bakerman]

Komaan man, ik post geen code die niet vooraf getest is.

Ik post nu al 6 codes die bij mij perfect werken.

Dus wat is er mis met jouw bestand ?

Bekijk mijn schermafdruk maar eens (de uitgeprinte versie ziet er exact hetzelfde uit)

 

[K5]

Ik vermoed dat we momenteel over twee verschillende bestanden van mening wisselen.

Voor misverstanden te vermijden heb ik de originele lijst aangepast.

Er zijn verscheidene leden uit verwijderd en gegevens zijn aangepast, zodat er geen inbreuk op privacy is.

De opmaak heb ik wel behouden.

Ik hoop dat je hiermee kunt experimenteren?

Oefening.xlsm

[bakerman]

Selecteer de kolommen A tem L.

In het lint ga je naar Pagina-indeling - Afdrukbereik.

Selecteer Afdrukbereik bepalen en sla je bestand op.

31 december 2018 aangepast door bakerman

[K5]

10 minuten geleden, bakerman zei:

Selecteer de kolommen A tem L.

In het lint ga je naar Pagina-indeling - Afdrukbereik.

Selecteer Afdrukbereik bepalen en sla je bestand op.

Bemerk ik ergens een boze toon?

Ik verplicht je tot niets hoor.

Toch nog bedankt om al je vorige denkwerk!

[bakerman]

Absoluut niet, dit was enkel een kort en bondige verduidelijking van de stappen die je moet ondernemen.