Questione : Accesso 2003 - parola 2003 - avere una domanda sul codice che funziona per conservare il documento come lima del pdf…

Ciao l'EE, il

Below nella finestra di codice è logica da collegare attraverso un
del recordset genera una pagina per ogni
dello student
(controllato fuori dall'utente su uno schermo) salvo l'intero documento a pdf

problem: il
am che seleziona 2 lo students
am che produce correttamente 2 pagine nel doc
-but-
di parola il pdf ha un terzo page

do che dello spazio in bianco supplementare avete tutta l'idea perché ho una pagina in bianco all'estremità?

tx del

(quando faccio manualmente un ctl+p nel documento di parola e scelgo lo stampatore dell'adobe, il pdf correttamente ottiene il
generato come pagina 2) per le vostri idee e consiglio, sandra
class= > " libero " 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:
il >Option notpretty " del class= " del id= " codeSnippet846516 del
 1 allora
        wdDoc.Bookmarks (“\ EndOfDoc„). wdSectionBreakNextPage di Range.InsertBreak
    Concluder se
    
    'inserire il documento di origine nel documento in bianco
    wdDoc.Bookmarks (“\ EndOfDoc„). strSourceFullPath 'GLS di Range.InsertFile
        
    'calcolare il numero delle tabelle nel documento alla prima pagina
    Se intRecordNumber = 1 allora 'GLS
        intTableCount = wdDoc.Tables.Count 'GLS
        
        Debug.Print wdDoc.Tables.Count 'GLS
    Concluder se 'GLS
    
    Rst di Debug.Print! S_Lname & ““& rst! S_Fname; „ “& rst! S_Id
     

    '======================
    'proprietà dell'esposizione per gli scopi di prova
    '======================

    Regolare i wdPrps = wdDoc.CustomDocumentProperties 'GLS
    Per ogni wdPrp nei wdPrps
       Debug.Print wdPrp.Name & “: „ & wdPrp.Value
    Dopo
    
    '======================
    'popolare le proprietà ed il documento dell'aggiornamento
    '======================
    Con i wdPrps
        . Articolo (“w_a_StudentName„). Valore = rst! S_Lname &„, “& rst! S_Fname
        . Articolo (“w_b_Subject„). Valore = rst! S_Subject
        . Articolo (“w_c_CourseTitle„). Valore = rst! S_Title
        . Articolo (“w_d_CourseNumber„). Valore = rst! S_Course_Number
        . Articolo (“w_e_CAD„). Valore = rst! S_Advisor_Lname &„, “& rst! S_Advisor_Fname
        . Articolo (“w_f_StartDate„). Valore = rst! S_StartDate
        . Articolo (“w_g_EndDate„). Valore = rst! S_EndDate
        
        . Articolo (“w_h_InstructorName„). Valore = rst! S_Instructor_Fname &„ “& rst! S_Instructor_Lname
        . Articolo (“w_i_StreetLine1„). Valore = rst! S_street1
        . Articolo (“w_j_StreetLine2„). Valore = rst! S_street2
       '. Articolo (“w_k_StreetLine3„). Valore = rst! S_street3
        . Articolo (“w_l_City„). Valore = rst! S_city
        . Articolo (“w_m_State„). Valore = rst! S_state
        . Articolo (“w_n_Zip„). Valore = rst! S_zip
        . Articolo (“w_o_CRN„). Valore = rst! S_CRN

        
    Estremità con
    
    '======================
    'aggiornare le proprietà e convertire in testo, di modo che i puntelli non possono essere re-aggiornati
    '======================
    
    wdDoc.fields.Update 'GLS
    campi del convertito di GLS di wdDoc.fields.Unlink 'a testo
        
    '========================
    'posizione al primo elemento della tabella per inserire immagine
    '========================
    'aggiungere nella linea immagine
    
    
    strImageFile = “bandiera di Pics di O:\COM Photos\MED \„ & _
                         rst! S_Id & “.jpg„
    
    Se "" (strImageFile) del <> del dir allora
    Altrimenti
       strImageFile = “bandiera di Pics di O:\COM Photos\MED \„ & _
                         “a_missingPhoto.jpg„
    Concluder se

                         
    'http://www.experts-exchange.com/Microsoft/Development/MS_Access/Access_Coding-Macros/Q_23702385.html?sfQueryTermInfo=1+cell+imag+insert+tabl+word
    
'calcolare la posizione della tabella per la nuova pagina, altrimenti continu aare inserire l'immagine in
'la prima tabella alla prima pagina

     lngTablePos = 1 + intTableCount * (intRecordNumber - 1)

    
     wdTable stabilito = wdDoc.Tables (lngTablePos) 'GLS
    
'inserire l'immagine nel primo elemento della tabella
     wdDoc.Range.InlineShapes.AddPicture strImageFile, _
                                        Falso, allineare, wdTable.Cell (1, 1).Range
                                            
nextrec:

    rst.MoveNext

Ciclo
   
'======================
'salvo come lima del documento di parola
'======================

strWordResultFile = disposizione (data, “YYYY_MM_DD„) &„ _ “& strTitleName &„ .doc "
                   
strResultFullPath = CurrentProject.Path & “\„ & strWordResultFile

'* cancellare la lima attuale
Se "" del <> del dir (strResultFullPath) allora
  Uccisione (strResultFullPath)
Concluder se

strResultFullPath di wdDoc.SaveAs

'=========================
'salvo come lima del pdf se Adobe è sul pc
'=========================
Se IsAdobeInstalled = allora allinea

'salvo le regolazioni dello stampatore di difetto
   pg_strDefaultPrinter = appWord.ActivePrinter
    
'Generare lo PS, il CEPPO, nomi della lima del pdf dal nome di schedario di Excel
   lngPos = InStr (strResultFullPath, “.")
   strPSfile = ha andato (strResultFullPath, lngPos) & “lo ps„
   strLOGfile = ha andato (strResultFullPath, lngPos) & “il ceppo„
   strPDFfile = ha andato (strResultFullPath, lngPos) & “il pdf„
    
   Debug.Print strPSfile
   Debug.Print strLOGfile
   Debug.Print strPDFfile
    
'stampatore di difetto della provvigione supplementare con lo stampatore del Adobe
   appWord.ActivePrinter = “pdf del Adobe su LPT2: „
    
'ricordar regolarsi:   Distillatore dell'acrobata riferimenti/degli attrezzi
    

  Regolare il objPDF_Distiller = nuovo PdfDistiller
      
'la stampa è realmente un'esportazione al pdf
    
  appWord.PrintOut, copie: =1, _
                 PrintToFile: =True, OutputFileName: =strPSfile
     
'Lima di PS dell'acrobata del convertito alla lima del pdf
   lngResult = objPDF_Distiller.FileToPDF (strPSfile, strPDFfile, "")
    
'lime di lavoro di cancellazione
   Uccisione strPSfile
   Uccisione strLOGfile
    
   Regolare il objPDF_Distiller = niente
                                      
'Ristabilire le regolazioni dello stampatore di difetto
   appWord.ActivePrinter = pg_strDefaultPrinter

Concluder se

savechanges di wdDoc.Close: =False
appWord.Quit

finishup:
Se strrst = “y„ allora
   rst. Fine
Concluder se

db. Chiuder

Regolare il appWord = niente
Regolare i wdDocs = niente
Regolare il wdDoc = niente

Regolare il wdImage = niente
Regolar wdTable = niente

Regolare i wdPrps = niente
Regolare il wdPrp = niente

Regolare il objPDF_Distiller = niente

Regolar db = niente
Regolare il rst = niente


ErrorHandlerExit:
   Uscire il sommergibile
ErrorHandler:
   Se allora errano = 429
      'La parola non sta funzionando; aprire la parola con CreateObject
      Regolare il appWord = CreateObject (“Word.Application„)
      Riprendere dopo
   Altrimenti
      No. di errore di MsgBox “: „ & Err.Number & “; Descrizione: „ & Err.Description
      Riassunto ErrorHandlerExit
   Concluder se
Concludere il sommergibile


Funzione pubblica IsAdobeInstalled () come booleano
strTemp fioco come stringa

IsAdobeInstalled = falso

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

Fare fino a strTemp = a ""
   IsAdobeInstalled = allinea
   strTemp = dir ()
Ciclo

Funzione di conclusione
class= del

Risposta : Accesso 2003 - parola 2003 - avere una domanda sul codice che funziona per conservare il documento come lima del pdf…

Sì quando fissa l'immagine, potete provare a fissare il formato.  Penso che il codice sia attaccato con due linee per l'incollatura:
    ActiveSheet.Pictures.Insert (“F:\Users\DDaneke\Pictures\DSC00059.jpg ").Select
    Selection.ShapeRange.Height = 144
    Selection.ShapeRange.ScaleHeight 0.1, msoFalse, msoScaleFromTopLeft

L'ALTEZZA fissa il formato, SCALEHEIGHT è una percentuale. - selezionamento uno da funzionare per voi.
1:
2:
3:
ActiveSheet.Pictures.Insert (“Filename.jpg„). Prescelto
    Selection.ShapeRange.Height = 144
    Selection.ShapeRange.ScaleHeight 0.1, msoFalse, msoScaleFromTopLeft
Altre soluzioni  
 
programming4us programming4us