afbeelding niet afdrukken

[thst]

bijgaand het aangepaste bestand
met jouw printer er in:

Sub opslaan_en_mailen()

'Worksheets(6).Cells(11, 16) = 0
'' application.Calculate 'bereken sheet
With ActiveSheet
.Shapes("Afbeelding 6").Visible = False 'verwijder het logo
Dim strCurrentPrinter As String
strCurrentPrinter = Application.ActivePrinter ' onthoud de standaard active printer
On Error Resume Next ' negeer print fouten
Application.ActivePrinter = "OKI MC361 PCL" ' switch naar een andere printer
ActiveSheet.PrintOut ' print de actieve sheet
'ActiveSheet.PrintOut Copies:=1, ActivePrinter:="OKI MC631 PCL"
'ActiveSheet.PrintOut Copies:=1, ActivePrinter:="Samsung Multi"
'.PrintOut Copies:=1, ActivePrinter:="HP LaserJet 4100 PCL 6"
Worksheets(6).Cells(11, 16) = 1
Application.Calculate 'bereken sheet
.Shapes("Afbeelding 6").Visible = True 'plaatst het logo terug
Application.ActivePrinter = strCurrentPrinter ' terug naar de standaard printer
On Error GoTo 0 ' hervat de normale fout afhandeling
Set OutMail = Nothing
Set OutApp = Nothing
Range("L45").Value = "Klaar."
End With
End Sub

 

[thst]

nog even iets aangepast

Sub opslaan_en_mailen()

'Worksheets(6).Cells(11, 16) = 0
'' application.Calculate 'bereken sheet
With ActiveSheet
.Shapes("Afbeelding 6").Visible = False 'verwijder het logo
Dim strCurrentPrinter As String
strCurrentPrinter = Application.ActivePrinter ' onthoud de standaard active printer
On Error Resume Next ' negeer print fouten
Application.ActivePrinter = "OKI MC361 PCL" ' switch naar een andere printer
ActiveSheet.PrintOut ' print de actieve sheet
ActiveSheet.PrintOut Copies:=1, ActivePrinter:="OKI MC631 PCL"
Worksheets(6).Cells(11, 16) = 1
Application.Calculate 'bereken sheet
.Shapes("Afbeelding 6").Visible = True 'plaatst het logo terug
Application.ActivePrinter = strCurrentPrinter ' terug naar de standaard printer
On Error GoTo 0 ' hervat de normale fout afhandeling
Set OutMail = Nothing
Set OutApp = Nothing
Range("L45").Value = "Klaar."
End With
End Sub

Angela

 

[thst]

als je de vba code runt gaat het logo dan wel weg en komt weer terug ?

Angela

 

[mooske04]

Ha Angela,
HIJ WERKT!!!!! Uhm, ben ik erg lastig als ik vraag hoe ik niet 1 maar 2 afbeeldingen verberg? Maak ik dan dezelfde Sub nog een keer, met de naam van afbeelding 2, of kan dit ook in 1x?

 

[thst]

Geweldig !!!!!!!!!

ik denk voor 2 afbeeldingen:

.Shapes("Afbeelding 6" & ("Afbeelding 8").Visible = False 'verwijder het logo

Angela

ik heb dit niet uitgetest

 

[mooske04]

dat werkte niet maar voor elke afbeelding een aparte regel werkt wel.
hm, met die verstande dat het runnen vd VBA wel werkt, en dan krijg ik 2 printjes zonder logo, maar wanneer ik een "gewone" printopdracht geef worden ze nog wel afgedrukt.
Daar nog een tip voor?

 

[thst]

voor 2 afbeeldingen:

.Shapes.Range(Array("Afbeelding 6", "Afbeelding 8")).Visible = False 'verwijder twee logo's
en ook veranderen bij
.Shapes.Range(Array("Afbeelding 6", "Afbeelding 8")).Visible = True 'zet logo's terug


Angela

 

[mooske04]

ja, dat heb ik idd gedaan. Als ik dan in de VBA zit en run, dan doet ie dat keurig, maar wanneer ik in mn werkblad de printopdracht geef, dan krijg ik nog gewoon de afbeeldingen uitgeprint.
dus de vba op zich lijkt me te werken (run doet het goed) en bij opslaan als PDF staan ze keurig in beeld, maar als ik dan de excel print dan krijg ik de afbeeldingen dus ook uitgeprint, dus ergens werkt de vba dan kennelijk niet?

 

[thst]

Als je de afbeeldingen niet afgedrukt wilt hebben moet je
de vba code in excel intregeren en d.m.v. je sheet afdrukken

Angela

 

[mooske04]

maar ik heb de vba code al in de programmacode van mn werkblad staan.
En toch print ie bij afdrukken van mn sheet wel de afbeeldingen..... :-(

 

[thst]

heb je wel de goede afbeelding nummer ?

klik op de afbeelding en kijk links naar afbeelding nummer

Angela

 

[mooske04]

ja, dat had ik al gecontroleerd.... zoals ik zeg: bij opslaan als pdf werkt het. Bij het runnen van de VBA werkt het.
Alleen bij het daadwerkelijk printen vd excel sheet werkt het niet. Houdt de functie printen mss geen rekening met VBA ofzo?

 

[thst]

Als je gaat printen gaat het via je vba code ?

je moet een button aan maken waarmee je de vba code start

Angela