carloschouw
Gebruiker
- Lid geworden
- 15 jun 2015
- Berichten
- 225
Goedemiddag!
Ik gebruik deze code om de inhoud van een ingevulde userform te verzenden via outlook. Ik vul dus eerst een userform in, klik op een commandbutton om de email applicatie te openen om met inhoud te verzenden. Dit werkt prima.
Alleen nu zou ik hetzelfde willen doen maar dan i.p.v. verzenden via email de inhoud printen. Wat ik nu doe = emailfunctie gebruiken en vanuit mijn email programma de printopdracht te gebruiken. Dat werkt op zich ook goed alleen zou ik willen printen zonder tussenkomst van outlook.
Is er zoiets mogelijks?
Ik gebruik deze code om de inhoud van een ingevulde userform te verzenden via outlook. Ik vul dus eerst een userform in, klik op een commandbutton om de email applicatie te openen om met inhoud te verzenden. Dit werkt prima.
Alleen nu zou ik hetzelfde willen doen maar dan i.p.v. verzenden via email de inhoud printen. Wat ik nu doe = emailfunctie gebruiken en vanuit mijn email programma de printopdracht te gebruiken. Dat werkt op zich ook goed alleen zou ik willen printen zonder tussenkomst van outlook.
Is er zoiets mogelijks?
Code:
Private Sub CommandButton8_Click()
Dim iRow As Long
Dim ws As Worksheet
Dim lrow As Long
Dim lCount As Long
Dim OutlookApp As Object
Dim MailIt As Object
Set ws = Worksheets("Blad1")
Set OutlookApp = CreateObject("Outlook.Application")
Set MailIt = OutlookApp.CreateItem(0)
With MailIt
.To = ""
.CC = ""
.Subject = "x" & " " & "x" & " " & Me.TextBox3.Value
.Body = "x" & vbCrLf & vbCrLf & _
"x:" & " " & Me.TextBox3.Value & vbCrLf & _
"x:" & " " & Me.TextBox1.Value & vbCrLf & _
"x:" & " " & Me.TextBox2.Value & vbCrLf & _
"x:" & " " & Me.ComboBox4.Value & vbCrLf & _
.Display
End With
End Sub