afbeelding niet afdrukken

[mooske04]

Luitjes,

wie weet of en zo ja hoe je in excel een afbeelding wel zichtbaar houdt wanneer je je excel opslaat als PDF, maar wanneer je je excel print, dat ie dan de afbeeling niet print? Bij het afdrukken van heet PDF bestand moet de afbeelding dan weer wel geprint worden.....

 

[thst]

Dat wordt dan in vba, alleen ik ben nu niet in de gelegenheid je
Probleem op te lossen


Theo

 

[thst]

Kijk in helpmij naar mijn topics daar vind je je antwoord

 

[HSV]

Dat wordt dan in vba, alleen ik ben nu niet in de gelegenheid je
Probleem op te lossen


Theo

Hé, ik heb je een paar keer geholpen, maar toen heette je Angela.

 

[thst]

Klopt Angela (mijn vrouw) heeft nu niet gereageerd maar
Haar man Theo

 

[HSV]

Oké, dat is prima.
Twee onder dezelfde noemer.
Ik was al bang dat je getransformeerd was. :d

 

[thst]

With ActiveSheet
        .Shapes("Afbeelding 55").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 = "Facturen Lade 2" ' switch naar een andere printer
'ActiveSheet.PrintOut ' print de actieve sheet
   ActiveSheet.PrintOut Copies:=1, ActivePrinter:="Facturen Lade 2"
   '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 55").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

dit werkt bij mij uitstekend.

Angela

 

[mooske04]

Hmm, daar heb ik toch nog een beetje toelichting op nodig....
- hetgeen achter '(dus bijv 'verwijder logo) komt niet in de vba?
- er staat 3x iets met active printer, maar ik heb maa 1 printer, dus dan hoef ik maar 1x ActiveSheet.Printout Copies te doen?
- Worksheets(6).Cells(11, 16) -> heeft dat betrekking op de cellen waar het logo in staat?
Graag nog een beetje uitleg, want dit aanpassen is me nog niet helemaal gelukt.....

 

[thst]

Worksheet heeft betrekking op het desbetreffende tabblab
voor en na " ' " is een kleine toelichting vba doet daar verder niets mee
en er wordt maar 1 active printer gebruikt

Succes Angela

 

[mooske04]

Ha Angela,

mbt printer: vul ik dus overal waar ActivePrinter staat, mijn printer in?

 

[thst]

Active priner hoeft er maar 1 x in te staan
En je vult daar achter je eigen printer in

Angela

 

[mooske04]

maakt het dan ook nog uit waar ik hem laat staan en wlke ik weghaal?
en ik heb verschillende harde schijven op mn pc. Moet ik het hele pad dan aangeven mbt de naam van de afbeelding?

 

[thst]

invoegen van een afbeelding:

Open Excel en het desbetreffende tabblad
Ga in het menu naar invoegen, afbeelding, Uit bestand
en selecteer de afbeelding
als de afbeelding in Excel staat:
Kijk links boven daar zie je iets staan zoals afbeelding 27
verwerk dat in de VBA code

Angela

 

[thst]

gelukt ?

Angela

 

[mooske04]

Hmm, nee, helaas niet. In de pdf blijft (zoals ook de bedoeling is) de afbeelding zichtbaar, maar bij het fysiek printen helaas ook....
ik heb het nu zo:

With ActiveSheet
        .Shapes("Afbeelding 11").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 MC631 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:="OKI MC631 PCL"
        '.PrintOut Copies:=1, ActivePrinter:="OKI MC631 PCL"
        Worksheets(6).Cells(11, 16) = 1
        Application.Calculate 'bereken sheet
        .Shapes("Afbeelding 11").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

Dus ik heb nog ergens iets fout staan, maar weet niet wat.....

 

[thst]

Bijgaand een werkende code

alleen nog je printeren afbeelding erin zetten

Sub opslaan_en_mailen()

'Worksheets(6).Cells(11, 16) = 0
'' application.Calculate 'bereken sheet
With ActiveSheet
.Shapes("Afbeelding 55").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 = "Facturen Lade 2" ' switch naar een andere printer
'ActiveSheet.PrintOut ' print de actieve sheet
ActiveSheet.PrintOut Copies:=1, ActivePrinter:="Facturen Lade 2"
'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 55").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]

En nu wel gelukt ?

Angela

 

[mooske04]

Helaas Angela, ik krijg het niet werkend :-(
Bijgaand bestand heb ik je laatste code in ingevoerd, ik vermoed dat ik ergens met het invullen van de printer de mist inga.......

 

[thst]

ga naar start instellingen printers en typ excact de naam van de printer
waarmee je wil werken

Angela

 

[mooske04]

ja, dat heb ik gedaan achter de eerste keer waar Active.Printer staat, maar moet dat bij alle plekken waar Printer staat?