Looking for suggestion recover / import invoice.

[ipbr21054]

Hi,

Some of the jobs I do I like to generate a dummy invoice & take with me to the job in question.

The invoice template saves a pdf to a folder on my pc.

Upon return of the job I then retype what was on the generate pdf & print the final sheet which then gets added to my database & invoice number is increased by 1

I’m looking for a way to not type it all out again.
I use a print area when printing so can this print area be saved to another sheet in this workbook where width etc etc is like for like so I can then just print it off & delete sheet once done.

 

[ipbr21054]

I have found & using the code below.
Once the new sheet is copied the code then makes that new sh`eet the active sheet.
I am wanting to stay on the original sheet.

In the code shown i removed wks.Activate but still it makes it active

  Dim wks As Worksheet
  Set wks = ActiveSheet
  ActiveSheet.Copy After:=Worksheets(Sheets.Count)
  If wks.Range("G13").Value <> "" Then
    On Error Resume Next
  ActiveSheet.NAME = wks.Range("G13").Value
  End If

  wks.Activate

 

[ipbr21054]

Now all sorted Thanks