Creating delivery notes from a spreadsheet

[Guest]

Does anyone know if it is possible to create a delivery note from a row on a
spreadsheet. One which automatically generate when a row is completed.
for example; a line has been completed and then a receipt is printed.
Any clues woudl be greatly appreciated.

 

[Tim Williams]

I would not do it "automatically" - otherwise you're going to be wasting a
lot of paper.
Better to allow the user to complete the information and then press a button
or something similar.

Just format a sheet for your delivery note and populate the spaces with the
information from the row on the other sheet.

Option Explicit

Sub Tester()
Dim s1, r

'skipped some error checking for selection type here...
Set r = Selection.Cells(1).EntireRow
Set shtNote = ThisWorkbook.Sheets("Note")

With shtNote
.Range("A2").Value = r.Cells(1).Value
.Range("B5").Value = r.Cells(2).Value
.Range("G4").Value = r.Cells(3).Value
'etc....
.PrintOut
End With


End Sub



Tim