farklı kaydet

[gokhanbek]

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Documents and Settings\ecstasy\Desktop\1922.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

1922 yerine saat yazabilirmiyiz

03.11.2010 10:20 gibi031120101020

 

[halit3]

bunu denermisiniz.

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Documents and Settings\ecstasy\Desktop\" & Format(Now, "dd.mm.yyyy hh:mm:ss") & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

 

[gokhanbek]

cok tesekkürler

 

[gokhanbek]

birde örnegin sayfa 1 b15 deyazılı değer nasıl yazdıra biliriz

 

[halit3]

bunu denermisiniz,

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & Sheets("Sayfa1").Range("B15").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

yada bunu

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Documents and Settings\ecstasy\Desktop\" & Sheets("Sayfa1").Range("B15").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

 

[gokhanbek]

cok tesekkürler

allah razı olsun

 

[halit3]

cok tesekkürler

allah razı olsun

iyi çalışmalar