plaatsing gekoppeld figuur bij automatisch afdrukken naar PDF is verkeerd

[JohanRVT]

Beste groep,
heb een probleem met een gekoppelde figuur (een banner kun je 't noemen) die in het midden van de PDF versie van een rapport komt te staan ipv links uitgelijnd. Je ziet duidelijk het verschil als je de printscreen vergelijkt met de PDF. In het afdrukvoorbeeld van het rapport is het wel netjes uitgelijnd (daar zorgt code 1 voor en zie printscreen); waarschijnlijk loop het ergens mis in de code 2 bij het automatisch eerst opmaken van die PDF versie en moet er iets ingesteld worden maar zou niet zo direct weten waar je dat kunt doen en vindt niets bruikbaars terug op 't net?
Code 1 (in 't rapport)

Option Compare Database
Option Explicit

Private Sub Report_NoData(Cancel As Integer)
On Error Resume Next

  MsgBox "Er is geen data in het rapport", vbOKOnly + vbInformation, "Rapport bevat geen data"
  Cancel = True
  If Err = 2501 Then Err.Clear
End Sub
Private Sub Report_Open(Cancel As Integer)
On Error GoTo PictureNotAvailable
With Me
    .Picture = GetPath & "\fotomap\Icons\reportbanner_algemeen_staand1.jpg" ' pad naar de jpg die in de bannerstrook komt te staan
    .PictureAlignment = Left    'http://msdn.microsoft.com/en-us/library/office/aa173197(v=office.11).aspx
    .PictureType = 1            'O is ingesloten en 1 is gekoppeld
    .PictureTiling = False      'yes is in tegels verdeeld over ganse blad   now is niet betegeld
    .PictureSizeMode = 3        'Clip = 0  Stretch = 1  Zoom = 3
End With
PictureNotAvailable:
    Exit Sub
End Sub

Code 2 ( in 't selectieformulier dat oa de maand en jaartal bepaalt voor het rapport en waar de PDF wordt gemaakt en weggeschreven vooraleer het rapport te openen)

        If Forms![Frm_Instelling]![SlvPDF_uit].Value = False Then
        'check of er al een personeelslid is geselecteerd
        stInstelling = Forms("Frm_instelling")("INaam").Value
        stmaand = [Forms]![Afdruk_Rapporten_Selectie_kilometervergoeding_overzicht]![TxtMaand].Value
        stjaar = [Forms]![Afdruk_Rapporten_Selectie_kilometervergoeding_overzicht]![txtJaar].Value
        'eerst de PDF versie van het rapport wegschrijven naar de personeeldossier\PDF map van de werknemer
        'controleren of de map van die bewoner al bestaat, zoniet map aanmaken
            dirname = GetPath & "\PDF\Algemeen\Kilometervergoeding"
            If Dir(dirname, vbDirectory) = "" Then MkDir dirname
            stDocName = "Rpt_KM_telling_maand"
            'stLinkCriteria = "[personeelsnummer] = [Forms]![Personeelfiche].nummer.Value"
            DoCmd.OpenReport stDocName, acViewReport, , , acHidden
        'Maak juiste bestandsnaam en schrijf PDF bestand weg in de directory fiches met de map met de werknemernaam
            myPath = GetPath & "\PDF\Algemeen\Kilometervergoeding"
            strReportName = "Rpt_KM_overzicht_" & Replace(stInstelling, " ", "_") & "_" & stjaar & "_" & stmaand
            Opslagmap = GetPath & "\PDF\Algemeen\Kilometervergoeding"
            DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, Opslagmap & "\" & strReportName & ".pdf", False
        'Schrijft de bestandsnaam voor de PDF weg naar de personeelfiche tabel zodat hij gemaild kan worden
            Forms!Personeelfiche.Form![Sub KM].Form!TxtPDF = myPath & "\Rpt_KM_telling_overzicht_" & stjaar & "_" & stmaand
            DoCmd.Close acReport, stDocName
        GoTo 1
        Else
1         'nu het eigenlijke afdrukvoorbeeld van het rapport tonen

            stDocName = "Rpt_KM_telling_maand"
            DoCmd.OpenReport stDocName, acViewPreview
        
            DoCmd.Maximize
        End If
        Exit Sub

Graag enige hulp/hints

 

[OctaFish]

Print de banner wel goed af? En heb je al meerdere PDF programma's geprobeerd? Want ik denk niet dat het probleem in Access ligt.

 

[JohanRVT]

Michel, bedankt voor 't meedenken maar 'k was weer te stom aan de kiekens te geven Het rapport dat ik dus eerst hidden open om een PDF van te maken en weer sluit stond in rapportweergave ipv afdrukvoorbeeld en met dat te wijzigen zoals de andere was 't opgelost. :d

nb: er komen bij deze "operatie" geen externe PDF programma's aan te pas want Access maakt die netjes zelf