Temat: Wysylka seryjna Zapis do PDF problem z dodatkiem

Witam , troche mnie tu nie było - pojawił sie problem z makrem ktorego uzywam od lat - a mianowicie musialem dorzucic do wysyłki ktora generowalem w wordzie specjalny kodzik kreskowy TBarcode firmy TEC-IT - taki dodatek dostalem z firmy ...

i tu pojawił sie problem makro ktore dotychczas dzialalo bez zarzutu nagle przestalo zapisywac pdf'ki

wydaje mi sie ze ten dodatek rowniez leci jako makro i chyba trzebaby wrzucic jakiegos waita na koncowke - moze ktos sie juz z czyms podobnym spotkał bede wdzieczny za pomoc //sugestie

Sub Drukuj()

qq = Now()
If Len(Month(qq)) = 2 Then M = Month(qq) Else M = "0" & Month(qq)
If Len(Day(qq)) = 2 Then D = Day(qq) Else D = "0" & Day(qq)
Y = Year(qq)

nazwa = D & "-" & M & "-" & Y & " Poreczyciele Statusu 2"

rok = "rok_" & Y

miesiac = "miesiac_" & M

If Len(Dir("C:\WYSYLKA\")) = 0 Then
MkDir "C:\WYSYLKA"
End If
If Len(Dir("C:\WYSYLKA\Raporty", vbDirectory)) = 0 Then
MkDir "C:\WYSYLKA\Raporty\"
End If
If Len(Dir("C:\WYSYLKA\Raporty\" & rok, vbDirectory)) = 0 Then
MkDir "C:\WYSYLKA\Raporty\" & rok
End If
If Len(Dir("C:\WYSYLKA\Raporty\" & rok & "\" & miesiac, vbDirectory)) = 0 Then
MkDir "C:\WYSYLKA\Raporty\" & rok & "\" & miesiac
End If
If Len(Dir("C:\WYSYLKA\Raporty\" & rok & "\" & miesiac & "\" & D & "-" & M & "-" & Y, vbDirectory)) = 0 Then
MkDir "C:\WYSYLKA\Raporty\" & rok & "\" & miesiac & "\" & D & "-" & M & "-" & Y
End If

MsgBox ("Plik zapisany C:\WYSYLKA\Raporty\" & rok & "\" & miesiac & "\" & D & "-" & M & "-" & Y & "\" & nazwa & ".pdf")

With ActiveWindow.View
' .ShowRevisionsAndComments = False
.RevisionsView = wdRevisionsViewFinal
End With
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
' .SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
' .Execute Pause:=False
End With
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"C:\WYSYLKA\Raporty\" & rok & "\" & miesiac & "\" & D & "-" & M & "-" & Y & "\" & nazwa, ExportFormat:= _
wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=True



End Sub

Temat: Wysylka seryjna Zapis do PDF problem z dodatkiem

A u mnie dziala :) o ile:

1. With...END with - cala sekcja - do usuniecia. To jest zle napisane - brakuje zadeklarowanego obiektu. Wywala blad - usunac. remove , delete.

2. Len(Dir("C:\WYSYLKA\")) = 0 nalezy zmienic na : Dir("C:\Wysylka", vbDirectory) = ""
(i analogicznie kolejne 4 sprawdzenia)

Temat: Wysylka seryjna Zapis do PDF problem z dodatkiem

Witam - dzieki za odpowiedz - dzialac dziala - tyle tylko ze dzieki tej zbednej sekcji generowalo mi wszystki pisma - usowajac ja generuje mi tylko 1 pismo - jakies pomysły ?

Temat: Wysylka seryjna Zapis do PDF problem z dodatkiem

Nie potrafie pomoc :(

Prawdopodobnie chodzi o kawalek kodu - .Destination = wdSendToNewDocument
Tam jest wymagane na pewno wlacznie odpowiedniej biblioteki Microsoft windows 11.0.
(ale zakladam ze jest u Ciebie uruchomiona)

Ogolnie problem jest dosc popularny z tym .Destination.

Sprobuj nagrac makro na formatowanie jeszcze raz i wkleic ten kawalek kodu (cala sekcja with)