Printmacro Excel met behulp van vba?

[Terrikon]

Opgelost..

 

[Thankyou]

Ach, dan ook maar even een linkje plaatsen naar "je andere vraag"

Daar wordt om gevraagd in de forumregels . . . .

 

[Terrikon]

Ik ben gewoon dringend op zoek naar hulp.. Ik zit mezelf kapot te ergeren op die VBA-codes omdat ik er weinig van snap in de hoop dat jullie me zouden kunnen helpen. Het is zo vervelend dat op een specifieke vraag nooit het antwoord op google te vinden is !

 

[Thankyou]

Nu heb ik hier niets te vertellen, maar weerspiegel wel het "vervelende gevoel" wat de meeste vrijwilligers op de diverse site's hebben bij crossposting. Ook als je "iets"vniet kunt vinden blijven de forumregels van kracht, welk excuus heb je dan om die niet te handhaven?

Succes verder met je vraag.

 

[Terrikon]

Ik heb geen excuus. Ik kan me inbeelden dat het vervelend is dat mensen op meerdere fora hun vraag posten, maar ik heb geen idee hoe lang het duurt voor er respons komt op mijn vraag en ik zou dit onderdeel van mijn Excel graag willen afronden.

 

[Terrikon]

Ik heb gebruik gemaakt van een Macro-knop met de volgende formule VBA-code:

Application.ScreenUpdating = False
Sheets("aflopende contracten").Select
    ActiveWorkbook.Worksheets("Aflopende contracten").AutoFilter.Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("Aflopende contracten").AutoFilter.Sort.SortFields. _
        Add Key:=Range("F7"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Aflopende contracten").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
For laatst = 7 To 65000
    If Range("a" & laatst) = "" Then
         GoTo afdrukken
    End If
Next laatst
afdrukken:
Range("G" & laatst).Activate
ActiveSheet.PageSetup.PrintArea = "$A$7:$G$" & laatst
With ActiveSheet.PageSetup
    .PrintTitleRows = ""
    .PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = "$A$7:$G$" & laatst
With ActiveSheet.PageSetup
    .LeftHeader = ""
    .CenterHeader = ""
    .RightHeader = ""
    .LeftFooter = ""
    .CenterFooter = ""
    .RightFooter = ""
    .LeftMargin = Application.InchesToPoints(0.47244094488189)
    .RightMargin = Application.InchesToPoints(0.47244094488189)
    .TopMargin = Application.InchesToPoints(0.393700787401575)
    .BottomMargin = Application.InchesToPoints(0.393700787401575)
    .HeaderMargin = Application.InchesToPoints(0.31496062992126)
    .FooterMargin = Application.InchesToPoints(0.31496062992126)
    .PrintHeadings = False
    .PrintGridlines = False
    .PrintComments = xlPrintNoComments
    .PrintQuality = 600
    .CenterHorizontally = False
    .CenterVertically = False
    .Orientation = xlLandscape
    .Draft = False
    .PaperSize = xlPaperA4
    .FirstPageNumber = xlAutomatic
    .Order = xlDownThenOver
    .BlackAndWhite = False
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    .PrintErrors = xlPrintErrorsDisplayed
End With
ActiveSheet.PrintPreview
Range("D21").Select
End Sub

Hierbij heb ik in mijn blad "Aflopende Contracten" de knop automatisch oplopend laten filteren. Deze Macro geeft bij mij nu automatisch een printvoorbeeld waarbij ik met 1 druk op de knop alleen de cellen uitprint die gevuld zijn met daadwerkelijke informatie, de "lege" cellen met wel een formule erachter worden niet uitgeprint. Ik hoop dat je hier wat aan hebt!