programer
Altın Üye
- Katılım
- 26 Mayıs 2005
- Mesajlar
- 604
- Excel Vers. ve Dili
- Office 2022 - Türkçe
- Altın Üyelik Bitiş Tarihi
- 16-03-2025
Arkadaşlar aşağıdaki kodu offis xp de kullanıyorum sorun yok. Ama dosyayı office 2000 yüklü bi makinaya yüklediğimde kırmızı renkli yerlerde hata veriyor.
Kodlar:
Private Sub CommandButton1_Click()
ActiveSheet.PageSetup.PrintArea = "$A$8:$D$58"
ActiveWindow.SelectedSheets.PrintOut Copies:=3
If [c59] = "" Then
MsgBox "Sayfada Veri Olmadığından Yazdırılamadı"
Else
ActiveSheet.PageSetup.PrintArea = "$A$59:$D$109"
ActiveWindow.SelectedSheets.PrintOut Copies:=3
End If
If [c110] = "" Then
MsgBox "Sayfada Veri Olmadığından Yazdırılamadı"
Else
ActiveSheet.PageSetup.PrintArea = "$A$110:$D$160"
ActiveWindow.SelectedSheets.PrintOut Copies:=3
End If
End Sub
Private Sub CommandButton4_Click()
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application.ScreenUpdating = False
ActiveSheet.Copy
ShName = Sheets("Çıkış Rapor").Range("B8")
Set wb = ActiveWorkbook
With wb
.SaveAs "Satış " & ShName _
& " " & strdate & ".xls"
.SendMail "mutlu@mutlu.mail", _
"Günlük Satış"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End Sub
Kodlar:
Private Sub CommandButton1_Click()
ActiveSheet.PageSetup.PrintArea = "$A$8:$D$58"
ActiveWindow.SelectedSheets.PrintOut Copies:=3
If [c59] = "" Then
MsgBox "Sayfada Veri Olmadığından Yazdırılamadı"
Else
ActiveSheet.PageSetup.PrintArea = "$A$59:$D$109"
ActiveWindow.SelectedSheets.PrintOut Copies:=3
End If
If [c110] = "" Then
MsgBox "Sayfada Veri Olmadığından Yazdırılamadı"
Else
ActiveSheet.PageSetup.PrintArea = "$A$110:$D$160"
ActiveWindow.SelectedSheets.PrintOut Copies:=3
End If
End Sub
Private Sub CommandButton4_Click()
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application.ScreenUpdating = False
ActiveSheet.Copy
ShName = Sheets("Çıkış Rapor").Range("B8")
Set wb = ActiveWorkbook
With wb
.SaveAs "Satış " & ShName _
& " " & strdate & ".xls"
.SendMail "mutlu@mutlu.mail", _
"Günlük Satış"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End Sub