Sorgu için arama sonuçları: xlTypePDF

...boş bırakılamaz") Exit Sub End If Set shsayfa = Sheets("sipariş") yol = ActiveWorkbook.Path & "\" & [K6] shsayfa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol & [A1] & " " & [B2] , Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True...

...MkDir Yol End If Say = fL.getfolder(Yol).Files.Count + 1 Sheets(Array("Terfi Onay Formu")).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & dosya_adi & Say & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _...

...Dim yol As String yol = ActiveWorkbook.Path & "\" & ad & " " & siparisNo & ".pdf" Sheets("sipariş").ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True MsgBox "PDF OLARAK DOSYANIZ...

...Exit Sub End If Set shsayfa = Sheets("sipariş") yol = ActiveWorkbook.Path & "\" & [K6] shsayfa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True...

Merhaba. Aktif sayfayı kaydeder. Sub Test() Range("A1:J54").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Environ("UserProfile") & "\Desktop\" & Range("N1") & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False...

...DOSYAYOLUADI = ThisWorkbook.Path & "\" & ActiveSheet.[A1].Value & Format(TARIH, "YYYYMMDD") & ".PDF" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=DOSYAYOLUADI, Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False...

merhabalar hocam, ilginiz için çok teşekkürler ancak istediğim tam olarak olmadı. totalde 3 işlem yapması gerekiyor. pdf yapmadan önce yazıcıyı "Microsoft Print to PDF" yapması (excel dosyasını vereceğim personellerde farklı yazıcı seçili olduğunda sayfa yapısı pdf yaparken bozuluyor) excel...

...ActiveSheet.PageSetup.BlackAndWhite = False ADSOYAD = [F55].Value DOSYAADI = "" & ADSOYAD & ".PDF" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\PDF_DOSYALAR\" & DOSYAADI & "", Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _...

...= Range("f14") fname = invno & " - " & custname & " - " & PIno & " - " & POno & " - " & dt_issue ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ IgnorePrintAreas:=False, _ Filename:=path & fname Set nextrec = Sayfa3.Range("A1048576").End(xlUp).Offset(1, 0) nextrec.Value = invno...

...fname = invno & " - " & custname & " - " & PIno & " - " & POno & " - " & dt_issue ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ IgnorePrintAreas:=False, _ Filename:=path & fname Set nextrec = Sheet3.Range("A1048576").End(xlUp).Offset(1, 0) nextrec...

...fname = invno & " - " & custname & " - " & PIno & " - " & POno & " - " & dt_issue ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ IgnorePrintAreas:=False, _ Filename:=path & fname Set nextrec = Sheet3.Range("A1048576").End(xlUp).Offset(1, 0) nextrec...

...= Range("f14") fname = invno & " - " & custname & " - " & PIno & " - " & POno & " - " & dt_issue ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ IgnorePrintAreas:=False, _ Filename:=path & fname Set nextrec = Sheet3.Range("A1048576").End(xlUp).Offset(1, 0) nextrec = invno...

Bu satırı silin Sheet3.Hyperlinks.Add anchor:=nextrec.Offset(0, 6), Address:=path & fname & ".pdf" yerine aşağıdakini ekleyin. Sheet3.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path & fname & ".pdf"

...= Range("f14") fname = invno & " - " & custname & " - " & PIno & " - " & POno & " - " & dt_issue ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ IgnorePrintAreas:=False, _ Filename:=fname Set nextrec = Sheet3.Range("A1048576").End(xlUp).Offset(1, 0) nextrec = invno nextrec.Offset(0, 1)...

...Dir(MyFileName) <> "" Counter = Counter + 1 MyFileName = MyPath & "Sayfa8_" & Counter & ".pdf" Loop ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFileName, Quality:=xlQualityStandard MsgBox "Form PDF olarak kaydedildi: " & MyFileName, vbInformation End Sub hocam...

...Sayfa7.PrintOut End Sub Sub kod() isim = "Form_" & Format(Now, "yyyymmddhhnn") & ".pdf" Sheets("Sayfa8").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Formlar\" & isim, _ OpenAfterPublish:=False End Sub...

...Counter = Counter + 1 MyFileName = MyPath & "Form_" & Counter & ".pdf" Loop ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFileName, Quality:=xlQualityStandard MsgBox "Form PDF olarak kaydedildi: " & MyFileName, vbInformation End Sub Ömer beyin...

Merhaba, Deneyiniz... Sub kod() isim = "Form_" & Format(Now, "yyyymmddhhnn") & ".pdf" Sheets("Form").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Formlar\" & isim, _ OpenAfterPublish:=False End Sub

...' Eğer aynı isimde bir dosya yoksa PDF olarak kaydet If Dir(dosyaAdi) = "" Then ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dosyaAdi, Quality:=xlQualityStandard MsgBox "Fatura PDF olarak kaydedildi.", vbInformation Else MsgBox "Aynı isimde bir...

...ElseIf ws.Name = "Fazla Mesai" Then Set rng = ws.Range("B2:S47") End If If Not rng Is Nothing Then ws.ExportAsFixedFormat Type:=xlTypePDF, _ fileName:=folderPath & "\" & fileName & "_" & ws.Name & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False...