Cuestión : El acceso 2003 - la palabra 2003 - tener una pregunta sobre el código que trabaja para ahorrar el doc. como archivo del pdf…

Hola EE,

Below en la ventana del código es lógica a colocar a través de un
del recordset crea una página para cada
del student
(comprobado por el usuario en una pantalla) excepto el doc. entero al pdf

problem: ¿el
am que selecciona 2 el students
am que produce correctamente 2 páginas en el doc
-but-
de la palabra el pdf tiene un 3ro page

do del espacio en blanco adicional que usted tiene cualquier idea porqué tengo una página en blanco en el extremo?

tx del

(cuando hago manualmente un ctl+p en la palabra doc. y elijo la impresora del adobe, el pdf correctamente consigue el
generado como página 2) para sus ideas y consejo, sandra
class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del
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:
el >Option notpretty " del class= " del id= " codeSnippet846516 del
 1 entonces
        wdDoc.Bookmarks (“\ EndOfDoc”). wdSectionBreakNextPage de Range.InsertBreak
    Terminar si
    
    'insertar el documento de fuente en el doc. en blanco
    wdDoc.Bookmarks (“\ EndOfDoc”). strSourceFullPath 'GLS de Range.InsertFile
        
    'calcular el número de tablas en el documento en la primera página
    Si intRecordNumber = 1 entonces 'GLS
        intTableCount = wdDoc.Tables.Count 'GLS
        
        Debug.Print wdDoc.Tables.Count 'GLS
    Terminar si 'GLS
    
    ¡Rst de Debug.Print! ¡S_Lname y ““y rst! S_Fname; ¡” “y rst! S_Id
     

    '======================
    'características de la exhibición para los propósitos de prueba
    '======================

    Fijar los wdPrps = wdDoc.CustomDocumentProperties 'GLS
    Para cada wdPrp en wdPrps
       Debug.Print wdPrp.Name y “: ” y wdPrp.Value
    Después
    
    '======================
    'poblar las características y el documento de la actualización
    '======================
    Con los wdPrps
        . Artículo (“w_a_StudentName”). ¡Valor = rst! ¡S_Lname y”, “y rst! S_Fname
        . Artículo (“w_b_Subject”). ¡Valor = rst! S_Subject
        . Artículo (“w_c_CourseTitle”). ¡Valor = rst! S_Title
        . Artículo (“w_d_CourseNumber”). ¡Valor = rst! S_Course_Number
        . Artículo (“w_e_CAD”). ¡Valor = rst! ¡S_Advisor_Lname y”, “y rst! S_Advisor_Fname
        . Artículo (“w_f_StartDate”). ¡Valor = rst! S_StartDate
        . Artículo (“w_g_EndDate”). ¡Valor = rst! S_EndDate
        
        . Artículo (“w_h_InstructorName”). ¡Valor = rst! ¡S_Instructor_Fname y” “y rst! S_Instructor_Lname
        . Artículo (“w_i_StreetLine1”). ¡Valor = rst! S_street1
        . Artículo (“w_j_StreetLine2”). ¡Valor = rst! S_street2
       '. Artículo (“w_k_StreetLine3”). ¡Valor = rst! S_street3
        . Artículo (“w_l_City”). ¡Valor = rst! S_city
        . Artículo (“w_m_State”). ¡Valor = rst! S_state
        . Artículo (“w_n_Zip”). ¡Valor = rst! S_zip
        . Artículo (“w_o_CRN”). ¡Valor = rst! S_CRN

        
    Extremo con
    
    '======================
    'poner al día las características y convertir al texto, de modo que los apoyos no puedan ser re-actualizados
    '======================
    
    wdDoc.fields.Update 'GLS
    campos del convertido de GLS de wdDoc.fields.Unlink 'al texto
        
    '========================
    'posición al primer elemento de la tabla para insertar el cuadro
    '========================
    'agregar en la línea imagen
    
    
    strImageFile = “bandera del Pics de O:\COM Photos\MED \” y _
                         ¡rst! S_Id y “.jpg”
    
    Si "" (strImageFile) del <> del dir entonces
    
       strImageFile = “bandera del Pics de O:\COM Photos\MED \” y _
                         “a_missingPhoto.jpg”
    Terminar si

                         
    'http://www.experts-exchange.com/Microsoft/Development/MS_Access/Access_Coding-Macros/Q_23702385.html?sfQueryTermInfo=1+cell+imag+insert+tabl+word
    
'calcular la posición de la tabla para la nueva página, si no guardará el insertar del cuadro en
'la primera tabla en la primera página

     lngTablePos = 1 + intTableCount * (intRecordNumber - 1)

    
     wdTable determinado = wdDoc.Tables (lngTablePos) 'GLS
    
'insertar el cuadro en el 1r elemento de la tabla
     wdDoc.Range.InlineShapes.AddPicture strImageFile, _
                                        Falso, verdad, wdTable.Cell (1, 1).Range
                                            
nextrec:

    rst.MoveNext

Lazo
   
'======================
'excepto como archivo de la palabra doc.
'======================

strWordResultFile = formato (fecha, “YYYY_MM_DD”) y” _ “y strTitleName y” .doc "
                   
strResultFullPath = CurrentProject.Path y “\” y strWordResultFile

'* suprimir el archivo existente
Si "" del <> del dir (strResultFullPath) entonces
  Matanza (strResultFullPath)
Terminar si

strResultFullPath de wdDoc.SaveAs

'=========================
'excepto como archivo del pdf si Adobe está en la PC
'=========================
Si IsAdobeInstalled = entonces verdad

'excepto ajustes de la impresora de defecto
   pg_strDefaultPrinter = appWord.ActivePrinter
    
'Crear el picosegundo, REGISTRO, nombres del archivo del pdf del nombre de fichero de Excel
   lngPos = InStr (strResultFullPath, “.")
   strPSfile = se fue (strResultFullPath, los lngPos) y el “picosegundo”
   strLOGfile = se fue (strResultFullPath, los lngPos) y el “registro”
   strPDFfile = se fue (strResultFullPath, los lngPos) y el “pdf”
    
   Debug.Print strPSfile
   Debug.Print strLOGfile
   Debug.Print strPDFfile
    
'impresora de defecto de la invalidación con la impresora de Adobe
   appWord.ActivePrinter = “pdf de Adobe en LPT2: ”
    
'recordar fijar:   Destilador del acróbata de las herramientas/de las referencias
    

  Fijar el objPDF_Distiller = nuevo PdfDistiller
      
la 'impresión es realmente una exportación al pdf
    
  appWord.PrintOut, copias: =1, _
                 PrintToFile: =True, OutputFileName: =strPSfile
     
'Archivo del picosegundo del acróbata del convertido al archivo del pdf
   lngResult = objPDF_Distiller.FileToPDF (strPSfile, strPDFfile, "")
    
'archivos de trabajo de la cancelación
   Matanza strPSfile
   Matanza strLOGfile
    
   Fijar el objPDF_Distiller = nada
                                      
'Restaurar los ajustes de la impresora de defecto
   appWord.ActivePrinter = pg_strDefaultPrinter

Terminar si

savechanges de wdDoc.Close: =False
appWord.Quit

finishup:
Si strrst = “y” entonces
   rst. Cierre
Terminar si

DB. Cerrarse

Fijar el appWord = nada
Fijar los wdDocs = nada
Fijar el wdDoc = nada

Fijar el wdImage = nada
Fijar wdTable = nada

Fijar los wdPrps = nada
Fijar el wdPrp = nada

Fijar el objPDF_Distiller = nada

Fijar DB = nada
Fijar el rst = nada


ErrorHandlerExit:
   Salir el submarino
ErrorHandler:
   Si entonces yerran = 429
      La 'palabra no está funcionando; abrir la palabra con CreateObject
      Fijar el appWord = CreateObject (“Word.Application”)
      Reasumir después
   
      No. del error de MsgBox “: ” Y Err.Number y “; Descripción: ” Y Err.Description
      Curriculum vitae ErrorHandlerExit
   Terminar si
Terminar el submarino


Función pública IsAdobeInstalled () como boleano
strTemp dévil como secuencia

IsAdobeInstalled = falso

strTemp = dir (“C:\Program Files\Adobe\acrobat *”, vbDirectory)

Hacer hasta strTemp = ""
   IsAdobeInstalled = verdad
   strTemp = dir ()
Lazo

Función del final
class= del

Respuesta : El acceso 2003 - la palabra 2003 - tener una pregunta sobre el código que trabaja para ahorrar el doc. como archivo del pdf…

Sí, al fijar imagen, usted puede intentar fijar el tamaño.  Pienso que el código está atado con dos líneas para el apresto:
    ActiveSheet.Pictures.Insert (“F:\Users\DDaneke\Pictures\DSC00059.jpg ").Select
    Selection.ShapeRange.Height = 144
    Selection.ShapeRange.ScaleHeight 0.1, msoFalse, msoScaleFromTopLeft

La ALTURA fija el tamaño, SCALEHEIGHT es un porcentaje. - selección una a trabajar para usted.
1:
2:
3:
ActiveSheet.Pictures.Insert (“Filename.jpg”). Selecto
    Selection.ShapeRange.Height = 144
    Selection.ShapeRange.ScaleHeight 0.1, msoFalse, msoScaleFromTopLeft
Otras soluciones  
 
programming4us programming4us