Question : L'accès 2003 - le mot 2003 - avoir une question sur le code qui fonctionne pour sauver le Doc. comme dossier de pdf…

Salut l'EE, le

Below dans la fenêtre de code est logique à faire une boucle par un
de recordset créent une page pour chaque
du student
(coché par l'utilisateur sur un écran) sauf le Doc. entier au pdf

problem : le
am choisissant 2 le students
am produisant correctement 2 pages dans le doc
-but-
de mot le pdf a un 3ème page

do de blanc supplémentaire que vous avez n'importe quelle idée pourquoi j'ai une page blanche à l'extrémité ?

(quand je fais manuellement un ctl+p dans le Doc. de mot et choisis l'imprimeur d'adobe, le pdf obtient correctement le
produit en tant que page 2)/>
tx pour vos idées et conseil, sandra
class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :
59 :
60 :
61 :
62 :
63 :
64 :
65 :
66 :
67 :
68 :
69 :
70 :
71 :
72 :
73 :
74 :
75 :
76 :
77 :
78 :
79 :
80 :
81 :
82 :
83 :
84 :
85 :
86 :
87 :
88 :
89 :
90 :
91 :
92 :
93 :
94 :
95 :
96 :
97 :
98 :
99 :
100 :
101 :
102 :
103 :
104 :
105 :
106 :
107 :
108 :
109 :
110 :
111 :
112 :
113 :
114 :
115 :
116 :
117 :
118 :
119 :
120 :
121 :
122 :
123 :
124 :
125 :
126 :
127 :
128 :
129 :
130 :
131 :
132 :
133 :
134 :
135 :
136 :
137 :
138 :
139 :
140 :
141 :
142 :
143 :
144 :
145 :
146 :
147 :
148 :
149 :
150 :
151 :
152 :
153 :
154 :
155 :
156 :
157 :
158 :
159 :
160 :
161 :
162 :
163 :
164 :
165 :
166 :
167 :
168 :
169 :
170 :
171 :
172 :
173 :
174 :
175 :
176 :
177 :
178 :
179 :
180 :
181 :
182 :
183 :
184 :
185 :
186 :
187 :
188 :
189 :
190 :
191 :
192 :
193 :
194 :
195 :
196 :
197 :
198 :
199 :
200 :
201 :
202 :
203 :
204 :
205 :
206 :
207 :
208 :
209 :
210 :
211 :
212 :
213 :
214 :
215 :
216 :
217 :
218 :
219 :
220 :
221 :
222 :
223 :
224 :
225 :
226 :
227 :
228 :
229 :
230 :
231 :
232 :
233 :
234 :
235 :
236 :
237 :
238 :
239 :
240 :
241 :
242 :
243 :
244 :
245 :
246 :
247 :
248 :
249 :
250 :
251 :
252 :
253 :
254 :
255 :
256 :
257 :
258 :
259 :
260 :
261 :
262 :
263 :
264 :
265 :
266 :
267 :
268 :
269 :
270 :
271 :
272 :
273 :
274 :
275 :
276 :
277 :
278 :
279 :
280 :
281 :
282 :
283 :
284 :
285 :
286 :
287 :
288 :
289 :
290 :
291 :
292 :
293 :
294 :
295 :
296 :
297 :
298 :
299 :
300 :
301 :
302 :
303 :
304 :
305 :
306 :
307 :
308 :
309 :
310 :
311 :
312 :
313 :
314 :
315 :
316 :
317 :
318 :
319 :
320 :
321 :
322 :
323 :
324 :
325 :
326 :
327 :
328 :
329 :
330 :
331 :
332 :
333 :
334 :
335 :
336 :
337 :
338 :
339 :
340 :
341 :
342 :
343 :
344 :
345 :
346 :
347 :
348 :
349 :
le >Option " de l'id= " codeSnippet846516 de
 1 puis
        wdDoc.Bookmarks (« \ EndOfDoc »). wdSectionBreakNextPage de Range.InsertBreak
    Finir si
    
    'insérer le document de source dans le Doc. blanc
    wdDoc.Bookmarks (« \ EndOfDoc »). strSourceFullPath 'GLS de Range.InsertFile
        
    'calculer le nombre de tables dans le document à la première page
    S'intRecordNumber = 1 puis 'GLS
        intTableCount = wdDoc.Tables.Count 'GLS
        
        Debug.Print wdDoc.Tables.Count 'GLS
    Finir si 'GLS
    
    Rst de Debug.Print ! S_Lname et « « et rst ! S_Fname ;  » « et rst ! S_Id
     

    '======================
    'propriétés d'affichage pour l'essai
    '======================

    Placer les wdPrps = le wdDoc.CustomDocumentProperties 'GLS
    Pour chaque wdPrp dans les wdPrps
       Debug.Print wdPrp.Name et « :  » et wdPrp.Value
    Après
    
    '======================
    'peupler les propriétés et le document de mise à jour
    '======================
    Avec des wdPrps
        . Article (« w_a_StudentName »). Valeur = rst ! S_Lname et », « et rst ! S_Fname
        . Article (« w_b_Subject »). Valeur = rst ! S_Subject
        . Article (« w_c_CourseTitle »). Valeur = rst ! S_Title
        . Article (« w_d_CourseNumber »). Valeur = rst ! S_Course_Number
        . Article (« w_e_CAD »). Valeur = rst ! S_Advisor_Lname et », « et rst ! S_Advisor_Fname
        . Article (« w_f_StartDate »). Valeur = rst ! S_StartDate
        . Article (« w_g_EndDate »). Valeur = rst ! S_EndDate
        
        . Article (« w_h_InstructorName »). Valeur = rst ! S_Instructor_Fname et » « et rst ! S_Instructor_Lname
        . Article (« w_i_StreetLine1 »). Valeur = rst ! S_street1
        . Article (« w_j_StreetLine2 »). Valeur = rst ! S_street2
       '. Article (« w_k_StreetLine3 »). Valeur = rst ! S_street3
        . Article (« w_l_City »). Valeur = rst ! S_city
        . Article (« w_m_State »). Valeur = rst ! S_state
        . Article (« w_n_Zip »). Valeur = rst ! S_zip
        . Article (« w_o_CRN »). Valeur = rst ! S_CRN

        
    Extrémité avec
    
    '======================
    'mettre à jour les propriétés et convertir en texte, de sorte que les appui verticaux ne puissent pas être re-mis à jour
    '======================
    
    wdDoc.fields.Update 'GLS
    champs de converti de GLS de wdDoc.fields.Unlink 'au texte
        
    '========================
    'position au premier élément de la table pour insérer l'image
    '========================
    'ajouter dans la ligne image
    
    
    strImageFile = « bannière de PICS d'O:\COM Photos\MED \ » et _
                         rst ! S_Id et « .jpg »
    
    Si "" (strImageFile) de <> de dir alors
    Autrement
       strImageFile = « bannière de PICS d'O:\COM Photos\MED \ » et _
                         « a_missingPhoto.jpg »
    Finir si

                         
    'http://www.experts-exchange.com/Microsoft/Development/MS_Access/Access_Coding-Macros/Q_23702385.html?sfQueryTermInfo=1+cell+imag+insert+tabl+word
    
'calculer la position de table pour la nouvelle page, autrement continuera à insérer l'image dans
'la première table à la première page

     lngTablePos = 1 + intTableCount * (intRecordNumber - 1)

    
     wdTable réglé = wdDoc.Tables (lngTablePos) 'GLS
    
'insérer l'image dans le ęr élément de la table
     wdDoc.Range.InlineShapes.AddPicture strImageFile, _
                                        Faux, vrai, wdTable.Cell (1, 1).Range
                                            
nextrec :

    rst.MoveNext

Boucle
   
'======================
'sauf en tant que dossier de Doc. de mot
'======================

strWordResultFile = format (date, « YYYY_MM_DD ») et » _ « et strTitleName et » .doc "
                   
strResultFullPath = CurrentProject.Path et « \ » et strWordResultFile

'* supprimer le dossier existant
Si "" de <> de dir (strResultFullPath) alors
  Mise à mort (strResultFullPath)
Finir si

strResultFullPath de wdDoc.SaveAs

'=========================
'sauf comme le dossier de pdf si Adobe est sur le PC
'=========================
S'IsAdobeInstalled = rectifient alors

'sauf des arrangements d'imprimante par défaut
   pg_strDefaultPrinter = appWord.ActivePrinter
    
'Créer la picoseconde, la NOTATION, noms de dossier de pdf de nom de fichier d'Excel
   lngPos = InStr (strResultFullPath, « .")
   strPSfile = est parti (strResultFullPath, lngPos) et la « picoseconde »
   strLOGfile = est parti (strResultFullPath, lngPos) et la « notation »
   strPDFfile = est parti (strResultFullPath, lngPos) et le « pdf »
    
   Debug.Print strPSfile
   Debug.Print strLOGfile
   Debug.Print strPDFfile
    
'imprimante par défaut de priorité avec l'imprimeur d'Adobe
   appWord.ActivePrinter = « pdf d'Adobe sur LPT2 :  »
    
'se rappeler de placer :   Distillateur d'acrobate d'outils/références
    

  Placer l'objPDF_Distiller = nouveau PdfDistiller
      
la 'copie est vraiment une exportation au pdf
    
  appWord.PrintOut, copies : =1, _
                 PrintToFile : =True, OutputFileName : =strPSfile
     
'Dossier de picoseconde d'acrobate de converti au dossier de pdf
   lngResult = objPDF_Distiller.FileToPDF (strPSfile, strPDFfile, "")
    
'dossiers de travail de suppression
   Mise à mort strPSfile
   Mise à mort strLOGfile
    
   Placer l'objPDF_Distiller = rien
                                      
'Reconstituer les arrangements d'imprimante par défaut
   appWord.ActivePrinter = pg_strDefaultPrinter

Finir si

savechanges de wdDoc.Close : =False
appWord.Quit

finishup :
Si strrst = « y » puis
   rst. Fin
Finir si

DB. Se fermer

Placer l'appWord = rien
Placer les wdDocs = rien
Placer le wdDoc = rien

Placer le wdImage = rien
Placer wdTable = rien

Placer les wdPrps = rien
Placer le wdPrp = rien

Placer l'objPDF_Distiller = rien

Placer DB = rien
Placer le rst = rien


ErrorHandlerExit :
   Sortir le sous-marin
ErrorHandler :
   Si errent = 429 alors
      Le 'mot ne fonctionne pas ; ouvrir le mot avec CreateObject
      Placer l'appWord = le CreateObject (« Word.Application »)
      Reprendre après
   Autrement
      No. d'erreur de MsgBox « :  » Et Err.Number et « ; Description :  » Et Err.Description
      Résumé ErrorHandlerExit
   Finir si
Finir le sous-marin


Fonction publique IsAdobeInstalled () comme booléen
Faible strTemp comme corde

IsAdobeInstalled = faux

strTemp = dir (« C:\Program Files\Adobe\acrobat * », vbDirectory)

Faire jusqu'au strTemp = au ""
   IsAdobeInstalled = rectifient
   strTemp = dir ()
Boucle

Fonction de fin
class= de

Réponse : L'accès 2003 - le mot 2003 - avoir une question sur le code qui fonctionne pour sauver le Doc. comme dossier de pdf…

Oui, en plaçant l'image, vous pouvez essayer de placer la taille.  Je pense que le code est attaché avec deux lignes pour le classement par taille :
    ActiveSheet.Pictures.Insert (« F:\Users\DDaneke\Pictures\DSC00059.jpg ").Select
    Selection.ShapeRange.Height = 144
    Selection.ShapeRange.ScaleHeight 0.1, msoFalse, msoScaleFromTopLeft

La TAILLE place la taille, SCALEHEIGHT est un pourcentage. - sélection une à travailler pour vous.
1 :
2 :
3 :
ActiveSheet.Pictures.Insert (« Filename.jpg »). Choisi
    Selection.ShapeRange.Height = 144
    Selection.ShapeRange.ScaleHeight 0.1, msoFalse, msoScaleFromTopLeft
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
  •  Winzip 12 issues de secours du travail ?
  •  
    programming4us programming4us