Word bestand printen dmv Excelknop

[matthijsdekker]

Hallo.

In excel ben ik bezig met een berekening. Ik heb een knop gemaakt die het excel bestandje in de jusite formaat uitprint werkt allemaal perfect. Nu heb ik de uitgangspunten in een word bestandje gemaakt. Nu wil ik graag dat dit word bestandje ook wordt uitgeprint als ik op die knop druk. Wel moet er voor het afdrukken een scherm komen die vraagt of het noodzakkelijk is dat de uitgangspunten mee worden geprint.

Dit is de code die ik tot nu toe heb

Private Sub CommandButton1_Click()
    If MsgBox(Title:=ActiveWorkbook.Author, Buttons:=vbQuestion + vbYesNoCancel, Prompt:="Weet u zeker dat u wilt afdrukken?") = vbYes Then
    If ActiveSheet.Range("B3").Value = "Massief" Then
    sq = Array("Uitkomstenblad")
    ElseIf ActiveSheet.Range("B3").Value = "Ankerloos" Then
    sq = Array("Uitkomstenblad")
    End If
    
    For I = 0 To UBound(sq)
    Sheets(sq(I)).PrintOut
    Next
    End If
End Sub

Alvast bedankt

 

[matthijsdekker]

inmiddels wat geprobeert werkt wel maar nog niet top misschien iemand die me hiermee kan helpen??

Private Sub CommandButton1_Click()
    
    If MsgBox(Title:=ActiveWorkbook.Author, Buttons:=vbQuestion + vbYesNoCancel, Prompt:="Weet u zeker dat u wilt afdrukken?") = vbYes Then
    If ActiveSheet.Range("B3").Value = "Massief" Then
    sq = Array("Uitkomstenblad")
    ElseIf ActiveSheet.Range("B3").Value = "Ankerloos" Then
    sq = Array("Uitkomstenblad")
    End If
    For I = 0 To UBound(sq)
    Sheets(sq(I)).PrintOut
    Next
    End If
    
    If MsgBox(Title:=ActiveWorkbook.Author, Buttons:=vbQuestion + vbYesNoCancel, Prompt:="Wilt u de uitgangspunten afdrukken?") = vbYes Then
    Dim docWord As Object
    Dim Bestand As String
    Set docWord = GetObject("d:\Uitgangspunten.docx")
    docWord.Activate
    docWord.PrintOut
    docWord.Close True
    End If
End Sub

Deze code print zorgt er voor dat er eerst een bericht komt en dan het bovenste gedeelte print en vervolgens weer een bericht komt en dan het onderste gedeelte print.
nu wil ik dat eerst de twee berichten achterelkaar komen en vervolgens alles achterelkaar geprint wordt (wel in deze volgorde)

alvast bedankt.

 

[Warme bakkertje]

Private Sub CommandButton1_Click()
    ans1 = MsgBox(Title:=ActiveWorkbook.Author, Buttons:=vbQuestion + vbYesNoCancel, Prompt:="Weet u zeker dat u wilt afdrukken?")
    ans2 = MsgBox(Title:=ActiveWorkbook.Author, Buttons:=vbQuestion + vbYesNoCancel, Prompt:="Wilt u de uitgangspunten afdrukken?")
    If ans1 = 6 Then
        If Range("B3").Value = "Massief" Or Range("B3").Value = "Ankerloos" Then
            'Sheets("Uitkomstenblad").PrintOut
            Sheets("Blad1").PrintPreview
        End If
    End If
    If ans2 = 6 Then
        With GetObject("D:\Uitgangspunten.docx")
            .Activate
            .PrintOut
            .Close True
        End With
    End If
End Sub

 

[matthijsdekker]

dankje hij werkt perfect!