Makro ile yazdırma

[sinnernekolens]

iyi akşamlar arkadaşlar, Bu kod f13 hücresindeki bilgiyi dosya ismi olarak kaydediyor buna birde tarih eklemek istiyorum (örnek: F13-17-01-14)
Ayrıca yazdır butonunu sayfa1 e ekleyip sayfa2 yi yazdırmak istiyorum.
Aşağıdaki kodlar üstünde yardımcı olabilirseniz sevinirim

Sub Metinkutusu2_Tıklat()
yol = ThisWorkbook.Path
isim = Format(Range("F13").Value, "yyyy-mm-dd-hh-mm")

Sheets("AGENT - PDA").Select
ActiveSheet.Range("A1:T61").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "/" & isim & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True

End Sub

 

[Emir Hüseyin Çoban]

. . .

Sub Metinkutusu2_Tıklat()
yol = ThisWorkbook.Path
isim = Format(Range("F13").Value, "yyyy-mm-dd-hh-mm") [COLOR="Red"]& "-" & Format(Now, "dd-mm-yy")[/COLOR]

[COLOR="Green"]'Sheets("AGENT - PDA").Select[/COLOR]
[COLOR="Red"]Sheets("AGENT - PDA").[/COLOR]Range("A1:T61").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "/" & isim & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True

End Sub

. . .

 

[sinnernekolens]

çok teşekkür ederim tam istediğim gibi birşey daha sormak istiyorum pfd değilde excell olarak o sayfayı farklı kaydetmem mümkünmü?

 

[sinnernekolens]

Arkadaşlar aşağıdaki formülü kullanarak sayfayı PDF yapıyorum. Bunu excel olarak kaydetmek mümkünmü?

Sub Metinkutusu2_Tıklat()
yol = ThisWorkbook.Path
isim = Format(Range("F13").Value, "yyyy-mm-dd-hh-mm") & "-" & Format(Now, "dd-mm-yy")

'Sheets("AGENT - PDA").Select
Sheets("AGENT - PDA").Range("A1:T61").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & "/" & isim & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True

End Sub