Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Old July 6th 03, 09:00 AM posted to microsoft.public.excel.programming,microsoft.public.excel.worksheet.functions
external usenet poster
 
First recorded activity by ExcelBanter: Jul 2003
Posts: 15
Default Count number of prints.

Supposed you want keep track of the number of printing of the sheet
"Sheet2", put the following codes into the ThisWorkbook module:-

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Wkt As Worksheet
Dim n As Integer
Set Wkt = Worksheets("Sheet1")
If ActiveSheet.Name = "Sheet2" Then
n = IIf(Wkt.Range("A1").Value = "", 0, Wkt.Range("A1").Value)
Wkt.Range("A1").Value = n + 1
End If
Set Wkt = Nothing
End Sub

Unfortunately, these codes do not detect the number of copied being printed.
Could someone tell us if there is a printcopy property in Excel.


"Luis Miguel" gl
...
Hello,

I want to know if is possible to put, in a cell, a counter of number of
prints in a sheet or xls file.

Thanks in advance,
Luis Miguel.







Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Set number of prints in page setup Peggi Excel Discussion (Misc queries) 4 November 7th 08 04:57 PM
Is there a way to default the number times a document prints? Bat Excel Discussion (Misc queries) 1 August 24th 08 07:57 AM
count each cell that have a number and take that number and count. Vick Excel Discussion (Misc queries) 3 May 19th 06 01:51 AM
½ symbol prints a 2 and Winding square box prints a F frank-e Excel Discussion (Misc queries) 2 March 22nd 06 10:03 PM
Count number of prints. Trevor Shuttleworth Excel Programming 0 June 30th 03 08:51 PM


All times are GMT +1. The time now is 03:29 PM.

Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
Copyright 2004-2022 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Copyright © 2017