Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 16 van 16

Onderwerp: Veranderende celkleuren bij pdf aanmaak

  1. #1
    Vraag is opgelost

    Veranderende celkleuren bij pdf aanmaak

    Beste helpers,

    Via vba maak ik een pdf van een excel bestand, maar de celkleuren veranderen, terwijl als ik via afdrukken microsoft afdrukken naar pdf doe alles goed blijft. Ik gebruik de volgende code:

    Code:
    Sub VolgFact()
    Range("D5").Value = Range("D5").Value + 1
    Range("A16:c28").ClearContents
    Range("m1").Value = 0
    ThisWorkbook.Save
    
    End Sub
    
    Public Sub OpslBestand()
    Dim NieuwFactXlsx As Variant
    'kopiëren document als nieuwe factuur
    ActiveSheet.Copy
    NieuwFactXlsx = "C:\Users\Siebe \Google Drive\Documents\Documents\Veehouderij\Uitgaande facturen\Facturen 2019 excel\Fact  " & " " & Range(" D5 ").Value & Range(" A10").Value & ".xlsx"
    ActiveWorkbook.SaveAs NieuwFactXlsx, FileFormat:=xlOpenXMLWorkbook
    ActiveSheet.ExportAsFixedFormat 0, "C:\Users\Siebe \Google Drive\Documents\Documents\Veehouderij\Uitgaande facturen\Facturen 2019 pdf\Fact  " & Range(" D5 ").Value & Range(" A10").Value & ".pdf"
    ActiveWorkbook.Close
    VolgFact
    End Sub
    Wie weet hoe dit op te lossen?

    Siebe

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Dat doet niets met de kleuren.
    Wat ik met wel afvraag is waarom er een spatie achter je gebruikersnaam staat om de cellen in de Range objecten.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Dank voor je reactie, spatie is omdat ik de achternaam heb gedelete :-)
    Heb je verder nog een idee waarom de kleuren veranderen, het contrast blijft wel beetje gelijk maar lichtblauw wordt bijv roze. Als ik de kleur wil aanpassen van bv b3:b10 hoe zet ik dat tussen deze code?

  4. #4
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Geen idee waarom die kleuren wijzigen.
    Andere kleur geven:
    Code:
    Range("B3:B10").Interior.Color = de kleurcode
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  5. #5
    En om dit alleen in de pdf te veranderen en in moederbestand niet hoe zou jij de code dan aanpassen?

  6. #6
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Je kan met VBA de kleur in een PDF niet aanpassen zonder aan de slag te gaan met bijvoorbeeld de Acrobat Development Kit (SDK).

    Laat het verschil in kleur eens zien met een scherm afdruk.
    Laatst aangepast door edmoor : 12 januari 2019 om 11:37
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  7. #7
    Klik op afbeelding voor grotere versie

Naam:  Screenprintexcel.png
Bekeken: 9
Grootte:  43,9 KBDit is opgeslagen via microsoft print naar pdf
    Klik op afbeelding voor grotere versie

Naam:  Printscreen pdf.jpg
Bekeken: 9
Grootte:  222,9 KB Dit is via de vba code opgeslagen pdf

    NB Ik zie nu dat het via vba opgeslagen excelbestand ook dezelfde roze en oranje geeft als de via vba opgeslagen pdf
    Laatst aangepast door snb : 13 januari 2019 om 12:48

  8. #8
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Plaats dat originele document eens.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  9. #9

  10. #10
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Het staat helemaal los van de PDF's en gaat al mis bij Activesheet.Copy
    Het nieuwe document heeft dan al die kleuren.
    Geen idee waarom dat gebeurt, maar ik denk dat het iets met verschillende thema kleuren te maken heeft.
    Misschien dat snb hier meer over weet?
    Klik op afbeelding voor grotere versie

Naam:  Roze.jpg
Bekeken: 8
Grootte:  228,9 KB

    Je kan ook dit doen:
    Code:
    Range("A1:D41").ExportAsFixedFormat 0, "C:\Users\Siebe\Google Drive\Documents\Documents\Veehouderij\Uitgaande facturen\Facturen 2019 pdf\Fact  " & Range(" D5 ").Value & Range(" A10").Value & ".pdf"
    Dan ben je er in ieder geval vanaf.
    Laatst aangepast door edmoor : 12 januari 2019 om 21:19
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  11. #11
    Senior Member
    Geregistreerd
    23 mei 2013
    Om de een of andere reden toont hij op het scherm niet de kleur die ingesteld is.

  12. #12
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Als je dit een keer uitvoert op het blad Servicefactuur is het verholpen:
    Code:
    Range("A15:D15").Interior.Color = 15262936
    Range("D16:D28").Interior.Color = 15395562
    Range("D29").Interior.Color = 15395562
    Range("D31").Interior.Color = 15395562
    Range("D33").Interior.Color = 15395562
    Maar het blijft vreemd.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  13. #13
    Moderator
    Verenigingslid

    Geregistreerd
    12 juni 2008
    Als ik het geplaatste bestand open
    Cel A15 selecteer
    De optie voor de achtergrondkleur selecteer
    De optie 'more colors selecteer,

    Dan blijkt de achtergrondkleur van de cel lichtroze te zijn.
    De weergave van deze kleur op het scherm in het Excelwindow is echter medium grijs.

    Het lijkt erop alsof pas na kopiëring van het werkblad de juiste kleur wordt getoond.

    Het euvel is eenvoudig op te lossen door de achtergrondkleur in het oorspronkelijke bestand opnieuw in te stellen.
    Het lijkt alsof dit een OpenOffice document is dat (onvolledig) naar Excel is geconverteerd.
    Bijgevoegde kleine afbeeldingen Bijgevoegde kleine afbeeldingen Klik op afbeelding voor grotere versie

Naam:  kleurendoof.PNG‎
Bekeken: 7
Grootte:  67,0 KB  
    Laatst aangepast door snb : 13 januari 2019 om 16:51
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  14. #14
    Allemaal bedankt voor het meedenken, heb nu idd de achtergrond kleur opnieuw ingesteld en is opgelost.

  15. #15
    Moderator
    Verenigingslid

    Geregistreerd
    12 juni 2008
    @sb17

    Klopt mijn veronderstelling dat het bestand niet in Excel is aangemaakt ?
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  16. #16
    Het is een sjabloon wat ik ooit eens ergens heb gedownload als excel, dus ik weet dat niet precies, maar idd na aanpassingen werkt het wel goed.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren