Soru PDF olarak kaydetme

[bthn35]

Merhaba,
EK'teki dosya A1'den G30'a kadar olan alani PDF olan olarak kaydedilmesini, c:\zimmet klasörüne kaydetmesini ve PDF ismininde J7-J8-J79.pdf olmasini istiyorum, boyle birset mumkun mu?

 

[Ömer]

Merhaba,

Deneyiniz.

Sub deneme()

    Dim deg As String, yol As String
    
    Application.ScreenUpdating = False
    ActiveSheet.PageSetup.PrintArea = "A1:G30"
  
    yol = "c:\zimmet"
    deg = [J7] & "-" & [J8] & "-" & [J9]

    ChDir yol
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        yol & "\" & deg & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False

End Sub

 

[denese]

Merhaba,

Alternatif olsun.

 

[bthn35]

Cok tesekkur ederim calisti, bir ozellik daha ekleyebilir miyiz? PDF olusturup bir de cikti alabilir mi ayni makro ile?

 

[Ömer]

End Sub satırından önce aşağıdaki satırı ilave ederek deneyiniz.

ActiveSheet.PrintOut

.

 

[bthn35]

End Sub satırından önce aşağıdaki satırı ilave ederek deneyiniz.

ActiveSheet.PrintOut

.

Oldu tesekkur ederim ancak yazici secmeme izin verebilir mi?

 

[Ömer]

ActiveSheet.PrintOut

Yukarıdaki satırdan önce aşağıdaki satırı ekleyip deneyiniz.

Application.Dialogs(xlDialogPrinterSetup).Show

.

 

[bthn35]

Oldu, cok tesekkur ederim