Gizli Sayfa Pdf Alma

[mmk]

a sayfasından 4 tane ayrı sayfanın pdf çıktısını almak için makro kullanıyorum fakat bu 4 safyayı gizlediğimde macronun alttaki bölümünde hata veriyor nasıl düzeltebilirim acaba yardımcı olur musunuz? (kısaca A sayfasındaki macrodan, gizli sayfalarda bulunan b sayfasının pdf'ini almak istiyorum)

         .ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Sheets("B").Visible = True
'
'Kodlarınız
'
Sheets("B").Visible = False

 

[mmk]

Aşağıdaki gibi deneyin.

Sheets("B").Visible = True
'
'Kodlarınız
'
Sheets("B").Visible = False

Hocam denedim olmadı ama yanlış yere yapıştırmış olabilirim paylaştığınız kodu. Kodun tamamını paylaşsam uygun yere yazabilirmisiniz. Sarı olan kod bölümü yukardakiyle aynı

Sub MemnuniyetPDF()

With Sheets("MMF")
 
'create default name for savng file
strFile = strName & "Müşteri memnuniyet formu" & strTime & ".pdf"
strPathFile = strPath & strFile

'use can enter name and
' select folder for file
myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strPathFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Select Folder and FileName to save")

'export to PDF if a folder was selected
If myFile <> "False" Then
        .ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    
    'confirmation message with file info
    MsgBox "PDF file has been created: " _
      & vbCrLf _
      & myFile
End If

exitHandler:
    Exit Sub
errHandler:
    MsgBox "Could not create PDF file"
    Resume exitHandler
    End With
    
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Sub MemnuniyetPDF()

With Sheets("MMF")
 
'create default name for savng file
strFile = strName & "Müşteri memnuniyet formu" & strTime & ".pdf"
strPathFile = strPath & strFile

'use can enter name and
' select folder for file
myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strPathFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Select Folder and FileName to save")

'export to PDF if a folder was selected
If myFile <> "False" Then
         .Visible = True
        .ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
         .Visible = False
    
    'confirmation message with file info
    MsgBox "PDF file has been created: " _
      & vbCrLf _
      & myFile
End If

exitHandler:
    Exit Sub
errHandler:
    MsgBox "Could not create PDF file"
    Resume exitHandler
    End With
    
End Sub