tilføj kopi ved 2 udskrift

Hej eksperter.

Jeg har entlig 2 spørgsmål.

1. Når den skal udskrive en faktura, altså 1 til kunden og en til en selv. Der skal jeg have vba koden til at tilføje "kopi" på den 2 udskrift. Det skal stå i celle B 48. Ved ikke om man kan centerer det midt i cellen. Den kode der er lagt ved, udskriver et skjult akr. Men synes ikke at det er så godt, som jeg troede.

2. Så vil jeg gerne have at den gemmer fakturaen, men kun det aktive ark ( Faktura ). Da det vil fylde mindre end at gemme hele faktura prg. hver gang.

Jeg har en vba kode hvor det skal flettes ind i.

Private Sub CommandButton1_Click()


'Gem og udskriv faktura

Const xsti = "g:\Faktura\excelfakturaDB\"      'tilpasses
Dim nummer
Dim kunde
  On Error Resume Next
  Range("A1:D55").PrintOut copies:=2, Collate:=True
 
  Application.ScreenUpdating = False

Sheets("Ark6").Visible = True
Sheets("Ark6").Activate
ActiveSheet.Range("A1:D55").PrintPreview
Sheets("Ark6").Visible = False

Application.ScreenUpdating = True

 
 
 
 
  nummer = ActiveWorkbook.Sheets(1).Cells(8, 4)  'skal tilpasses
  kunde = ActiveWorkbook.Sheets(1).Cells(4, 2)
 
  ActiveWorkbook.SaveAs Filename:= _
  "g:\Faktura\excelfakturaDB\" + CStr(kunde) + "\faktura_" + nummer + ".xls", FileFormat:=xlNormal, _
  Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
  CreateBackup:=False
 
  Workbooks.Open Filename:= _
        "g:\Faktura\excelfakturaDB\Laves auto faktura.xlt" ' ret til den fil du åbner ved ny faktura


  ThisWorkbook.Saved = True
  ActiveWorkbook.Close


End Sub