Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: macro opslaan als pdf met naamswijziging en mailen en afprinten  (gelezen 5176 keer)

0 leden en 1 gast bekijken dit topic.

Offline mechanik

  • Lid
  • *
  • Berichten: 16
  • Geslacht: Man
  • Oplossing.be
macro opslaan als pdf met naamswijziging en mailen en afprinten
« Gepost op: 10 september 2018, 17:24:54 »
ik heb een excel bestandje waar ik dagelijks gebruik van maak maar die me veel tijd in beslag neemt omdat ik het

1 moet invullen, 2 moet afdrukken in pdf en mailen naar taximaatschappij en dan 3 ook nog eens voor onze gewone binnenadministratie het op papier afgedrukt moet hebben ...
wie oh wie kan me dat in elkaar boxen? Directory's aanpassen zal me wel lukken nadien wat de naam betreft het zou de opeenvolging moeten zijn van de volgende vakken G1 F7 E13
het mailen naar het taxibedrijf zou dat ook te doen zijn?

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.127
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: macro opslaan als pdf met naamswijziging en mailen en afprinten
« Reactie #1 Gepost op: 10 september 2018, 20:58:31 »
Hallo Mechanik,

Welkom op Oplossing.be  :)

Welke versie van Excel gebruik je, want je geeft een .xls voorbeeldbestandje mee, wat van een oude versie zou zijn.
anders zet je jou bestand beter om naar een .xlsx (vanaf Office 2007, denk ik)

Om jou te helpen zal je een Macro moeten gebruiken.
Je zal dus je bestand moeten opslaan als .xlsm (als je geen zeer oude versie gebruikt)
Maak ook  een map "Taxi" aan in C:\

Daarna zal je de VBA-editor moeten openen, een Module toevoegen, en de onderstaande code kopiëren en in de module plakken.
Sub MailTaxi()
     
    FacName = ActiveSheet.Range("G1")
    Datum = ActiveSheet.Range("F7")
    Bestuurder = ActiveSheet.Range("E13")
       
       ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       "C:\Taxi\" & FacName & "_" & Datum & "_" & Bestuurder & ".pdf", IgnorePrintAreas:=False, OpenAfterPublish:=False
   
    Application.ActivePrinter = "Brother MFC-5890CN Printer (LAN) op Ne09:"  'pas de gegevens aan voor jou printer
    ExecuteExcel4Macro "PRINT(2,1,1,1,,,,,,,,2,,,TRUE,,FALSE)"

End Sub

Je zal in je werkblad ook de eigenschappen van cel "F7" moeten aanpassen naar "Aangepast" .....   ##.##.####
Daarna je datum opnieuw ingeven: 03 09 2018

Later kan je deze macro aan een (in je werkblad te plaatsen) knop kunnen koppelen.

Ik ken je "skills" niet, dus laat maar horen wat je zou kunnen verwezenlijken

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: macro opslaan als pdf met naamswijziging en mailen en afprinten
« Reactie #2 Gepost op: 10 september 2018, 21:45:17 »
Ik zie daar een hoop mogelijkheden om het leven makkelijker te maken. Want die gekleurde lijst met adressen is het "Données du trajet"? Zijn dat altijd vaste gegevens? Of hoe gaat dat in z'n werk? Je "bon" zien als een rapportage en je gegevens invoeren in een platte tabel gaat je al een hoop plezier opleveren. Met een stukkie code erachter kan je er dan zo voor zorgen dat al je bonnen worden afgedrukt en opgeslagen (en misschien wel gelijk worden gemaild, maar da's wel afhankelijk van je mailprogramma).
______________________________

Groet, Leo

Offline mechanik

  • Lid
  • *
  • Berichten: 16
  • Geslacht: Man
  • Oplossing.be
Re: macro opslaan als pdf met naamswijziging en mailen en afprinten
« Reactie #3 Gepost op: 11 september 2018, 16:45:38 »
oei dat wordt nog even uittesten voor mij :-) die macro knippen en plakken dat zal me zeker en vast wel lukken printer bepalen zal even prutsen worden vrees ik.
de Macro koppelen aan een knop zal me wel lukken met wizard google ;-)


de lijst met bestemmingen die ik op de zijkant heb staan zijn degene die regelmatig terugkomen maar is in principe onbeperkt … is ermee dat ik daar geen dropdown-menu gebruik … is kopieren en plakken dat ik daar doe.

Offline mechanik

  • Lid
  • *
  • Berichten: 16
  • Geslacht: Man
  • Oplossing.be
Re: macro opslaan als pdf met naamswijziging en mailen en afprinten
« Reactie #4 Gepost op: 11 september 2018, 17:05:24 »
ik had je printer die ingesteld had veranderd door de mijne die de cryptische omschrijving SEC30CDA73C49ED gekregen heeft gehad na netwerk installatie maar daar loopt de macro dus vast … knop heb ik al kunnen integreren en koppelen

Offline lommer

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 132
  • Geslacht: Man
Re: macro opslaan als pdf met naamswijziging en mailen en afprinten
« Reactie #5 Gepost op: 11 september 2018, 18:55:30 »
Hallo Mechanik,

Deze drukt een pdf, aantal copies op je standaardprinter en heeft een bijlage voor outlook-email.
Indien je map niet bestaat, wordt die aangemaakt.
Je vult gegevens in in de sheet.
't Is het proberen waard.

Grt,
lommer
Standaard emailprogramma: Outlook Express
Standaard Operating System: Windows XP SP2
Standaard Browser:Internet Explorer 6

Offline mechanik

  • Lid
  • *
  • Berichten: 16
  • Geslacht: Man
  • Oplossing.be
Re: macro opslaan als pdf met naamswijziging en mailen en afprinten
« Reactie #6 Gepost op: 11 september 2018, 20:30:02 »
whow dit is al heel mooi :-) juist ik heb geen teller nodig voor het aantal pdf's want ik heb er maar 1 nodig en diezelfde moet dan ook gewoon verstuurd worden, wel heb ik nog 1 fysiek afgedrukte bon nodig. Ik heb ook gemerkt dat de datum zich converteerd naar een gewoon getal, is er hier een oplossing voor te vinden?
Op mijn PC heb ik een voorgemaakte taxi.msg bestand staan waar ik de pdf nu in versleepte en dan pas verstuurde.
Kan met VBA die bepaalde taxi.msg(op mijn bureaublad) geselecteerd worden als verzendmail?

Offline mechanik

  • Lid
  • *
  • Berichten: 16
  • Geslacht: Man
  • Oplossing.be
Re: macro opslaan als pdf met naamswijziging en mailen en afprinten
« Reactie #7 Gepost op: 12 september 2018, 09:49:06 »
Ben nu op mijn werk en heb de macro al goed kunnen uittesten, en de nodige aanpassingen kunnen doen.
Mooi werkje 😁     
De eerdere opmerking zijn dus van generlei waarde daar die bij mij thuis voordeeen
Juist eventueel pdf kunnen plaatsen in reeds bestaande mail of kan ik mijn handtekening in de mail er direct laten bijplaatsen?
Het probleem met de datum heb ik opgelost door geen scheidingsteken meer te gebruiken

Offline lommer

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 132
  • Geslacht: Man
Re: macro opslaan als pdf met naamswijziging en mailen en afprinten
« Reactie #8 Gepost op: 12 september 2018, 11:49:35 »
Wat bedoel je met

Citaat
Juist eventueel pdf kunnen plaatsen in reeds bestaande mail

Als je mail opent staat de taxibon dan niet als bijlage?
Indien dit niet het geval is (waarschijnlijk is de slash het probleem), verander cel O2 in

=G1&"  " & TEKST(F7;"dd-mm-jjjj")&"  "&E13
Standaard emailprogramma: Outlook Express
Standaard Operating System: Windows XP SP2
Standaard Browser:Internet Explorer 6

Offline mechanik

  • Lid
  • *
  • Berichten: 16
  • Geslacht: Man
  • Oplossing.be
Re: macro opslaan als pdf met naamswijziging en mailen en afprinten
« Reactie #9 Gepost op: 12 september 2018, 14:25:20 »
neen neen dat is geen probleem de mail bevat direct de pdf maar de body is leeg maar misschien moet ik daar gewoon een nieuwe handtekening voor maken in outlook bedenk ik me nu en die telkens erin smijten :-)
het werkt voortreffelijk …. ;-) is een groot plezier om mee te werken bespaard me per bon "veel" werk, allee overbodige handelingen eerder

 


www.combell.com