Printen en afsluiten

[Mr_Miller]

Allen ik heb het volgende statement gemaakt in excel, nu wil ik alleen dat NA
het printen het workbook wordt afgesloten.

Wie kan mij hier mee helpen?

Bij voorbaad dank,
Groeten,

Mr_Miller


Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim i As Integer
Dim k As Integer

i = MsgBox("De lijst wordt:" _
& Chr(13) & Chr(13) & "-bijgewerkt" _
& Chr(13) & "-geprint" _
& Chr(13) & "-gesaved" _
& Chr(13) & "-afgesloten" _
& Chr(13) & Chr(13) & "wijzigingen kunnen daarna niet meer ingevoerd worden." _
& Chr(13) & Chr(13) & "Wilt u Doorgaan?" _
, vbYesNo + vbQuestion, "Printen en afsluiten")

If i = vbYes Then GoTo drgaan
If i = vbNo Then Cancel = True
Exit Sub

drgaan:

'velden met 0 verbergen
k = 4

With Sheets("lijst")
Do Until .Cells(59, k).Text = "x"
If .Cells(59, k).Text = 0 Then Cells(k).EntireColumn.Hidden = True
k = k + 1
Loop
End With
End sub

 

[Jan van Asseldonk]

Waar je wilt sluiten plaats je de volgende code:

Application.DisplayAlerts = False
Application.ThisWorkbook.Close

 

[Mr_Miller]

Waar je wilt sluiten plaats je de volgende code:

Application.DisplayAlerts = False
Application.ThisWorkbook.Close

Oke, maar werkt dit dan ook nog in het volledige statement?

Volgens mij niet, als ik dit invoeg, dan sluit hij het workbook wel, maar wordt er dus niet geprint.

Gr.

Mr_Miller

 

[Wigi]

Dit is (uitgebreide) code om te printen:

Dim printrange As Range
    Set printrange = Range("B500").CurrentRegion
    PageSetup.PrintArea = printrange
    
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = "Afgedrukt op &D (&T)"
        .LeftMargin = Application.InchesToPoints(0.78740157480315)
        .RightMargin = Application.InchesToPoints(0.78740157480315)
        .TopMargin = Application.InchesToPoints(0.984251968503937)
        .BottomMargin = Application.InchesToPoints(0.984251968503937)
        .HeaderMargin = Application.InchesToPoints(0.511811023622047)
        .FooterMargin = Application.InchesToPoints(0.511811023622047)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .PrintTitleRows = "$500:$500"
        .PrintTitleColumns = ""
    End With
    
    Selection.PrintOut

Pas aan en delete ook wat je niet nodig hebt.

Wigi