Word
Excel
PowerPoint
Access
Outlook
ECDL
Poradna - Tlač z dvoch hárkov do pdf
Vložení příspěvkuhlavní kategorie | zpět | + odpovědět na toto téma
| Tlač z dvoch hárkov do pdf - diskuze na toto téma |
| Ako vytlačím dva (alebo viac) hárkov naraz? Na jeden hárok (ktorý je very hidden) mám nižšie uvedený kód. Chcel by som k tomu pridať viac hárkov (už nie sú skryté).
Ďakujem za pomoc.
Sub TextBox2_Kliknúť()
Dim iStary As Integer, Subor As String
Application.ScreenUpdating = False
On Error Resume Next
With ThisWorkbook
iStary = .ActiveSheet.Index
Subor = .Path & "\" & Left$(.Name, InStrRev(.Name, ".") - 1) & ".pdf"
With .Worksheets("Prva")
.Unprotect Password:=""
.Visible = xlSheetVisible
.Range("B2:M68,O2:AD68").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Subor, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
.Visible = xlSheetVeryHidden
.Protect Password:=""
End With
.Worksheets(iStary).Select
End With
On Error GoTo 0
Application.ScreenUpdating = True
End Sub Viac hárkov do jedného PDF, alebo viac hárkov tak, že každý hárok bude mať svoje PDF? Čo určuje, ktoré listy sa majú exportovať? Je nejaký zoznam? Nejaké zaškrtávacie políčka, nejaké podmienky v dátach? Alebo sú listy napevno dané? Upresnite. Odpověď Ďakujem veľmi pekne. Chvíľu mi trvalo prísť na to ako zmeniť poradie a vyhadzuje mi to chybu pri tlači, ale výsledok je taký ako má byť. Ešte raz ďakujem. Odpověď Akú chybu to vyhadzuje? Na ktorom riadku chyba vzniká? (treba dať do Watches premennú Err, a sledovať, kedy nadobudne inú hodnotu ako 0). Najlepšie by bolo poskytnúť anonymizovanú prílohu. Odpověď |
