Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Wat aanvulling op het voorbeeldje van Roncancio nl. waar vink je dat uit![]()
Met als aanvulling daarop dat dit Excel 2007 is.
Met vriendelijke groet,
Roncancio
Ja dat is heel mooi, alleen moet ik hem handmatig uit en aan zetten, en dat is niet de bedoeling het logo moet verdwijnen als ik in VBA een printopdracht geef.
(Ik druk namelijk om voorgedrukt papier af)
Wanneer ik de factuur mail moet het logo wel worden meegestuurd.
Ik heb dus alleen een code nodig om het logo aan / uit te zetten
Angela
If [P11].Value = 1 Then
With ActiveSheet
.Shapes("Picture 1").Visible = False
.PrintOut Copies:=1, ActivePrinter:="HP LaserJet 4100 PCL 6"
.Shapes("Picture 1").Visible = True
End With
End If
If MsgBox("Factuur mailen ?", vbQuestion + vbYesNo) = vbYes Then
'versturen van pdf via mail
Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
With Itm
'.Subject = "Bijgaand de factuur, en bevestiging aflevering."
.Subject = "Betreft rit: " & Range("O33").Value 'Plaats - Plaats
.To = Range("O32").Value & "" 'vul hier een mail adres in
.CC = ""
.Bcc = ""
'.Body = Range("P31").Value & Range("O31").Value & vbNewLine & vbNewLine & Range("P32").Value & vbNewLine & Range("P33").Value & vbNewLine & vbNewLine & Range("P34").Value & vbNewLine & Range("P35").Value & vbNewLine & vbNewLine & Range("P36").Value & vbNewLine & Range("P37").Value & vbNewLine & Range("P38").Value & vbNewLine & vbNewLine & Range("P39").Value & vbNewLine & Range("P40").Value
.Body = Replace([P31] & [O31] & "#" & "#" & [P32] & "#" & [P33] & "#" & "#" & [P34] & "#" & [P35] & "#" & "#" & _
[P36] & "#" & [P37] & "#" & [P38] & "#" & "#" & [P39] & "#" & [P40], "#", vbNewLine)
[ad1].CurrentRegion.ClearContents
fn = Dir("E:\A2B4U\Opdrachten\2010\*.pdf")
Do While fn <> ""
myResult = myResult & fn & "|"
fn = Dir()
Loop
[ad1].Resize(UBound(Split(myResult, "|"))) = WorksheetFunction.Transpose(Split(myResult, "|"))
Application.Calculate
.Attachments.Add sPDFPath & "\" & Replace(sPDFName, "xls", "pdf") 'Factuur word gemaild. (0123456789.pdf)
sPDFPath = "E:\A2B4U\Opdrachten\2010\"
If Range("o34") = "1" Then
.Attachments.Add sPDFPath & "\" & (Range("o35").Value) 'Vrachtbrief word gemaild. (0123456789v.pdf)
sPDFPath = "E:\A2B4U\Opdrachten\2010\"
End If
If Range("o36") = "1" Then
.Attachments.Add sPDFPath & "\" & (Range("o37").Value) 'Bevestiging word gemaild. (0123456789b.pdf)
sPDFPath = "E:\A2B4U\Opdrachten\2010\"
End If
If Range("o38") = "1" Then
.Attachments.Add sPDFPath & "\" & (Range("o39").Value) 'Pakbon word gemaild. (0123456789p.pdf)
End If
'.Attachments.Add sPDFPath & "\" & (Range("O29").Value) 'Vrachtbrief word gemaild. (0123456789v.pdf)
.Display
'.Save
'.Send
End With
Else
Worksheets(6).Cells(11, 16) = 0
Application.Calculate
ActiveSheet.PrintOut Copies:=1, ActivePrinter:="HP LaserJet 4100 PCL 6"
Worksheets(6).Cells(11, 16) = 1
Application.Calculate
End If
'End If Hoort bij MsgBox Loes ....
End Sub
If [P11].Value = 1 Then
With ActiveSheet
.Shapes("Picture 1").Visible = False
.PrintOut Copies:=1, ActivePrinter:="HP LaserJet 4100 PCL 6"
.Shapes("Picture 1").Visible = True
End With
End If
Else
Worksheets(6).Cells(11, 16) = 0
Application.Calculate
.Shapes("Afbeelding 7").Visible = False
ActiveSheet.PrintOut Copies:=1, ActivePrinter:="HP LaserJet 4100 PCL 6"
Worksheets(6).Cells(11, 16) = 1
Application.Calculate
.Shapes("Afbeelding 7").Visible = True
End If
'End If Hoort bij MsgBox Loes ....
End Sub
Else
Worksheets(6).Cells(11, 16) = 0
Application.Calculate
With ActiveSheet
.Shapes("Afbeelding 7").Visible = False
.PrintOut Copies:=1, ActivePrinter:="HP LaserJet 4100 PCL 6"
Worksheets(6).Cells(11, 16) = 1
Application.Calculate
.Shapes("Afbeelding 7").Visible = True
End With
End If
'End If Hoort bij MsgBox Loes ....
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.